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goals,  it  developed  flexible  iiiput/output  (including  Ike  ARPA  Network),  and  flexible  Interrupt  and 
signal  handling  It  now  serves  as  a base  for  software  prototyping,  research,  development,  education, 
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coherent  user  interface,  special  research  projects,  autonomous  daemons,  etc. 


This  dneumrnt  svas  originally  intended  to  be  a simple  low-level  introduction  to  MDL.  It  has. 
however,  acquired  a case  of  elephantiasis  and  now  amounts  to  a discursive  description  of  the  whole 
interpreter,  as  realized  in  MDL  release  numbers  55  (ITS  version)  and  105  (Tenex  and  Tops-29 
versions).  (Significant  changes  from  the  previous  edition  are  marked  in  the  margin.)  A low-level 
introduction  may  still  be  had  by  restricting  one's  attention  to  specially-marked  sections  only.  The 
scope  of  the  document  is  confined  as  much  as  possible  to  the  interpreter  itself.  Other  adjuncts 
(compiler,  assembler,  pre-loaded  user  programs,  library)  are  mentioned  as  little  as  possible,  despite 
their  value  in  promoting  the  language  seen  by  a user  from  "basic  survival"  to  "comfortable  living". 
Indeed.  MDL.  could  not  fulfill  the  above  design  goals  without  the  compiler,  assembler,  structure 
editor,  control-stack  printer,  context  printer,  pretty-printer,  dynamic  loader,  and  library  system  — all 
of  which  are  not  part  of  the  interpreter  but  programs  written  in  MDL  and  symbiotic  with  one 
another.  Further  information  on  these  adjuncts  can  be  found  in  Lebling's  (1979)  document. 
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The  MDL  Programming  Language 


Abstract 

The  Ml)l  programming  language  began  existence  in  late  1970  (under  the  name  Muddle)  as  a 
successor  to  L ivp  (Moon.  1974).  a candidate  vehicle  for  the  Dynamic  Modeling  System,  and  a possible 
base  for  implementation  of  Planner  (Hewitt,  I960).  The  original  design  goals  included  an 
interactive  integrated  environment  for  piogianiiiliitg.  debugging,  loading,  and  editing:  ease  in 
learning  and  use:  facilities  for  structured,  modular,  shared  programs;  extensibility  of  sytttax.  data 
types  and  operators:  data  type  checking  for  debugging  and  opt iottal  data  type  declaratiotts  for 
compiled  efficiency:  associative  storage,  coroutining,  and  graphics.  Aloitg  the  way  to  reaching  those 
goals,  it  developed  flexible  input/output  (including  the  ARPA  Network),  and  flexible  interrupt  and 
signal  handling.  It  now  serves  as  a base  for  softwate  prototyping,  research,  development,  education, 
and  implementation  of  the  majority  of  programs  at  MIT-DMS:  a library  of  sharable  modules,  a 
coherent  user  interface,  special  research  projects,  autonomous  daemons,  etc. 

This  document  was  originally  intended  to  hr  a simple  low-level  introduction  to  MDL.  It  has. 
however,  acrpiited  a case  of  elephantiasis  and  now  amounts  to  a discursive  description  of  the  whole 
interpreter,  as  realized  in  MDl  release  numbers  55  (ITS  version)  and  105  (Tenex  and  Tops-20 
I versions).  (Significant  changes  from  the  previous  edition  are  marked  in  the  margin.)  A low-level 
introduction  may  si  ill  he  had  by  restricting  one’s  attention  to  specially-marked  sections  only.  The 
scope  of  the  document  is  confined  as  much  as  possible  lo  the  interpreter  itself.  Other  adjuncts 
(compiler  assembler,  pie-loaded  user  programs,  library)  are  mentioned  as  little  as  possible,  despite 
their  value  in  promoting  the  language  seen  by  a user  from  "basic  survival"  to  "comfortable  living". 
Indeed,  MDl  could  not  fulfill  the  above  design  goals  without  the  compiler,  assembler,  structure 
editor,  control-stack  printer,  context  printer,  pretty-printer,  dynamic  loader,  and  library  system  — all 
of  whicii  are  not  part  of  the  interpreter  but  programs  written  in  MDL  and  symbiotic  with  one 
another.  Further  information  on  these  adjuncts  can  be  found  in  Lebling's  (1979)  document. 
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Foreword 

Trying  to  explain  MDL  to  an  uninitiate  is  somewhat  like  trying  to  untie  a Gordian  knot.  Whatever 
topic  one  chooses  to  discuss  first,  full  discussion  of  it  appears  to  imply  discussion  of  everything 
else.  What  follows  is  a discursive  presentation  of  MDL  in  an  order  apparently  requiring  the  fewest 
forward  references.  It  is  not  perfect  in  that  regard:  however,  if  you  are  patient  and  willing  to 
accept  a few.  stated  things  as  'magic*  until  they  can  be  explained  better,  you  will  probably  not  have 
too  many  problems  understanding  what  is  going  on. 

There  are  no  “practice  problems':  you  are  assumed  to  be  learning  MDL  for  some  purpose,  and  your 
work  in  achieving  that  purpose  will  be  more  useful  and  motivated  than  artificial  problems.  In 
several  cases,  the  examples  contain  illustrations  of  important  points  which  are  not  covered  in  the 
text.  Ignore  examples  at  your  peril. 

This  document  does  not  assume  knowledge  of  any  specific  programming  language  on  the  your  part. 
However,  “computational  literacy*  is  assumed:  you  should  have  written  at  least  one  program  before. 
Also,  very  little  familiarity  is  assumed  with  the  interactive  time-sharing  operating  systems  under 
which  MDL  runs  - ITS,  Tcnex.  and  Tops-20  - namely  just  file  and  user  naming  conventions. 

Notation: 

Sections  marked  [I]  are  recommended  for  an  uninitiate's  first  reading,  in  lieu  of  a separate 
introduction  or  primer  for  MDL.  [On  first  reading,  text  within  brackets  like  these  should  be 
ignored] 

Most  specifically  indicated  examples  herein  are  composed  of  pairs  of  lines.  The  first  line  of  a pair, 
the  input,  always  ends  in  S (which  is  how  the  ASCII  character  ESC  is  represented,  and  which  always 
represents  it).  The  second  line  is  the  result  of  MDL's  groveling  over  the  first.  If  you  were  to  type 
all  the  first  lines  at  MDL.  it  would  respond  with  all  the  second  lines.  (More  exactly,  the  "first  line* 
is  one  or  more  objects  in  MDL  follosved  by  S,  and  the  “second  line*  is  everything  up  to  the  next 
"first  line”! 

Anything  which  is  written  in  the  MDL  language  or  which  is  typed  on  a computer  terminal  appears 
herein  in  a gothic  font,  as  in  ROOT.  A metasyntactic  variable  - something  to  be  replaced  in  actual 
use  by  something  else  - appears  as  r*dix:(ix,  in  an  italic  font;  often  the  variable  will  have  both  a 
meaning  and  a data  type  (as  here),  but  sometimes  one  of  those  will  be  omitted,  for  obvious  reasons. 

An  ellipsis  (...)  indicates  that  something  uninteresting  has  been  omitted.  The  character  A means 
that  the  following  character  is  to  be  “controllified*:  it  is  usually  typed  by  holding  down  a terminal's 
CTRL  key  and  striking  the  other  key. 
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Chapter  1.  Basie  Interaction 

The  purpose  of  this  chapter  is  to  provide  you  with  that  minimal  amount  of  information  needed  to 
experiment  with  MDL  while  reading  this  document.  It  is  strongly  recommended  that  you  do 
experiment,  especially  upon  reaching  chapter  5 (Simple  Functions). 


1.1.  Loading  MDL  [I] 

First,  catch  your  rahhit.  Somehow  get  the  interpreter  running  --  the  program  in  the  file  SYS:TS  MDL 
in  the  ITS  version  or  SYS:MPL.SAV  in  the  Tenex  version  or  SYS:MDL.EXE  in  the  Tops-20  version. 
The  intcrpicter  will  first  type  out  some  news  relating  to  MDL.  if  any,  then  type 

I ISHN 1MG-A1  -LEVEL  1 PROCESS  1 

and  then  svait  for  you  to  type  something. 

The  program  which  you  are  now  running  is  an  interpreter  for  the  language  MDL.  All  it  knows  how 
to  do  is  interpret  MDL  expressions.  There  is  no  special  "command  language";  you  communicate 
with  the  program  - make  it  do  things  for  you  - by  actually  typing  legal  MDL  expressions,  which  it 
then  interprets  Everything  you  can  do  at  a terminal  can  be  done  in  a program,  and  vice  versa,  in 
exactly  the  same  way. 

The  program  w ill  he  referred  to  as  just  "MDL"  (or  "the  interpreter")  from  here  on.  There  is  no 
ambiguity,  since  the  program  is  just  an  incarnation  of  the  concept  "MDL". 


1.2.  Typing  [I] 

Typing  a character  at  MDL  normally  just  causes  that  character  to  be  echoed  (printed  on  your 
terminal)  and  remembered  in  a buffer.  The  only  characters  for  which  this  is  normally  not  true  act 
as  follows: 

Typing  S (ESC)  causes  MDL  to  echo  dollar-sign  and  causes  the  contents  of  the  buffer  (the  characters 


I • 1.2  Basic  Interaction 


The  MDL  Programming  Language 


17 


which  you've  typed)  to  be  interpreted  as  an  expression^)  in  MDL.  When  this  interpretation  is  done, 
the  result  will  be  printed  and  MDL  will  wait  for  more  typing.  ESC  will  be  represented  by  the  glyph 
S in  this  document. 

Typing  the  rubout  character  (DEL  in  the  ITS  and  Tops-20  versions,  control-A  in  the  Tenex  version) 
causes  the  last  character  in  the  buffer  - the  one  most  recently  typed  ••  to  be  thrown  away  (deleted). 
If  you  now  immediately  type  another  rubout,  once  again  the  last  character  is  deleted  - namely,  the 
second  most  recently  typed.  Etc.  The  character  deleted  is  echoed,  so  you  can  see  what  you’re  doing. 
On  some  "display”  terminals,  rubout  will  "echo"  by  causing  the  deleted  character  to  disappear.  If  no 
characters  are  in  the  buffer,  rubout  echoes  as  carriage-return  line-feed. 

Typing  ''I?  (control-atsign)  deletes  everything  you  have  typed  since  the  last  S,  and  prints  a carriage- 
return  line-feed. 

Typing  AD  (control-D)  causes  the  current  input  buffer  to  be  typed  back  out  at  you.  This  allows  you 
to  see  what  you  really  have,  without  the  confusing  re-echoed  characters  produced  by  rubout. 

Typing  AL  (control-L)  produces  the  same  effect  as  typing  "‘D,  except  that,  if  your  terminal  is  a 
"display"  terminal  (for  example,  IMLAC,  ARDS,  Datapoint),  it  first  clears  the  screen. 

Typing  ~G  (eontrol-G)  causes  MDL  to  stop  whatever  it  is  doing  and  act  as  if  an  error  had  occurred 
(section  1.4).  ~G  is  generally  most  useful  for  temporary  interruptions  to  check  the  progress  of  a 
computation.  ~G  is  "reversible"  - that  is,  it  does  not  destroy  any  of  the  "state"  of  the  computation  it 
interrupts.  To  "undo"  a ~G,  type  the  characters 

<ERRET  T>$ 

(This  is  discussed  more  fully  far  below,  in  section  16.4.) 

Typing  *5  (control-S)  causes  MDL  to  throw  away  what  it  is  currently  doing  and  return  to  a normal 
"listening”  state.  (In  the  Tenex  and  Tops-20  versions,  ‘*0  also  should  have  the  same  effect.)  AS  is 
generally  most  useful  for  aborting  infinite  loops  and  similar  terrible  things.  AS  destroys  whatever 
is  going  on,  and  so  it  is  ned  reversible. 
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Most  expressions  in  MDL  include  ’brackets"  (generically  meant)  that  must  be  correctly  paired  and 
nested.  If  you  end  your  typing  with  the  pair  of  characters  !S  (exclamation-point  ESC),  all  currently 
unpaired  brackets  (hut  not  double-quotes,  which  bracket  strings  of  characters)  will  automatically  be 
paired  and  interpretation  will  start.  Without  the  ! , MDL  will  just  sit  there  waiting  for  you  to  pair 
them.  If  you  have  improperly  nested  parentheses,  brackets,  etc.,  within  the  expression  you  typed,  an 
error  will  occur,  and  MDL  will  tell  you  what  is  wrong. 

Once  the  brackets  are  properly  paired,  MDL  will  immediately  echo  carriage-return  and  line-feed,  and 
the  next  thing  it  prints  will  be  the  result  of  the  evaluation.  Thus,  if  a plain  S is  not  so  echoed,  you 
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have  some  expression  unclosed.  In  (hat  case,  if  you  have  not  typed  any  characters  beyond  the  S, 
you  can  usually  rub  nut  the  S and  other  characters  back  to  the  beginning  of  the  unclosed  expression. 
Otherwise,  what  you  have  typed  is  beyond  the  help  of  rubout  and  A9;  if  you  want  to  abort  it,  use 

~S. 

MDL  accepts  and  distinguishes  between  upper  and  lower  case.  All  "built-in  functions"  must  be 
referenced  in  upper  case. 


1.3.  Loading  a File  [I] 

If  you  have  a program  in  MDL  that  you  have  written  as  an  ASCII  file  on  some  device,  you  can 
"load"  it  by  typing 

<F10AD  file>i 

where  file  is  the  name  of  the  file,  in  standard  operating-system  syntax,  enclosed  in  "s  (double- 
quotes). Omitted  parts  of  the  file  name  are  taken  by  default  from  the  file  name  "DSK:  INPUT  >a 
(in  the  ITS  version)  or  "DSK:  INPUT. MUD"  (in  the  Tenex  and  Tops-20  versions)  in  the  current  disk 
directory. 

Once  you  type  S,  MDL  will  process  the  text  in  the  file  (including  FLOADs)  exactly  as  if  you  had 
typed  it  on  a terminal  and  followed  it  with  S,  except  that  "values"  produced  by  the  computations 
are  not  printed.  When  MDL  is  finished  processing  the  file,  it  will  print  "DONE". 

When  MDL  starts  running,  it  will  FLOAD  the  file  "MUDDLE  INIT"  (ITS  version)  or  "MUDDLE. INIT" 
(Tenex  and  Tops-'20  versions),  if  it  exists. 


1.4.  Errors  - Simple  Considerations  [I] 

When  MDL  decides  for  some  reason  that  something  is  wrong,  the  standard  sequence  of  evaluation  is 
interrupted  and  an  error  function  is  called.  This  produces  the  following  terminal  output: 

•ERROR* 

of  ten-hyphenated-reason 
(unrtion-m-  which-error -occurred 
LISTENING-AT-LEVEL  integer  PROCESS  integer 

You  can  now  interact  with  MDL  as  usual,  typing  expressions  and  having  them  evaluated.  There 
exist  facilities  (built-in  functions)  allowing  you  to  find  out  what  went  wrong,  restart,  or  abandon 
whatever  was  going  on.  In  particular,  you  can  recover  from  an  error  --  that  is,  undo  everything  but 
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side  effects  and  return  to  the  initial  typing  phase  ~ by  typing  the  following  first  line,  to  which 
MD1.  will  respond  with  the  second  line: 

CIRRI  IH 

LISTENING- AT -LEVEL  1 PROCESS  1 

If  you  type  the  following  first  line  while  still  in  the  error  state  (before  <ERRET».  MDL  will  print,  as 
shown,  the  arguments  (or  "parameters*  or  "inputs"  or  ‘independent  variables")  which  gave 
indigestion  to  the  unhappy  function: 

CARGS  < FRAME  <f RAME »>J 
( ,ir£umcnts  to  unhappy  function  ] 

This  will  he  explained  by  and  by. 
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Chapter  2.  Read,  Evaluate,  and  Print 


2.1.  General  [II 

Oiicc  you  type  $ and  all  brackets  are  correctly  paired  and  nested,  the  current  contents  of  the  input 
buffer  go  through  processing  by  three  functions  successively:  first  READ,  which  passes  its  output  to 
EVAL  ( evaluate  ).  which  passes  its  output  to  PRINT,  whose  output  is  typed  on  the  terminal. 

[Actually,  the  sequence  is  more  like  READ,  CRLF,  EVAL,  PRIN1,  CRLF  (explained  in  chapter  11); 
MDL  gives  you  a carriage-return  line  feed  when  the  READ  is  complete,  that  is.  when  all  brackets  are 
paired.] 

Functionally, 

READ:  printable  representations  -->  MDL  objects 

LVAl:  MDL  objects  -->  MDL  objects 

PRINT : MDL  objects  «>  printable  representations 

That  is,  RIAD  takes  ASCII  text,  such  as  is  typed  in  at  a terminal,  and  creates  the  MDL  objects 
represented  by  that  text.  PRINT  takes  MDL  objects,  creates  ASCII  text  representations  of  them,  and 
types  them  out.  EVAL.  which  is  the  really  important  one.  performs  transformations  on  MDL 
ob  jects. 


2.2.  Philosophy  (TYPCs)  [I] 

In  a general  sense,  when  you  are  interacting  with  MDL.  you  are  dealing  with  a world  inhabited  only 
by  a particular  set  of  objects:  MDL  objects. 

MDL  objects  are  best  considered  as  abstract  entities  with  abstract  properties.  The  properties  of  a 
particular  MDL  object  depend  upon  the  class  of  MDL  objects  to  which  it  belongs.  This  class  is  the 


2-2.2 


Read.  Evaluate,  and  Print 


The  MDL  Programming  Language 


Si 


TYPE  of  the  MDL  object.  Every  MDL  object  has  a TYPE,  and  every  TYPE  has  its  own  peculiarities. 
There  are  many  different  TYPEs  in  MDL;  they  will  gradually  be  introduced  below,  but  in  the 
meantime  here  is  a representative  sample:  SUBR  (the  TYPE  of  READ,  EVAL  and  PRINT),  FSUBR,  LIST, 
VECTOR,  FORM,  FUNCTION,  etc.  Since  every  object  has  a TYPE,  one  often  abbreviates  "an  object  of 
TYPE  type “ by  saying  "a  type". 

The  laws  of  the  MDL  world  are  defined  by  EVAL.  In  a very  real  sense.  EVAL  is  the  only  MDL  object 
which  "acts’,  which  "does  something".  In  "acting",  EVAL  is  always  'following  the  directions"  of  some 
MDL  object.  Every  MDL  object  should  be  looked  upon  as  supplying  a set  of  directions  to  EVAL; 
what  these  directions  are  depends  heavily  on  the  TYPE  of  the  MDL  object. 

Since  EVAL  is  so  ever-present,  an  abbreviation  is  in  order:  "evaluates  to  something " or  "EVALs  to 
something " should  be  taken  as  an  abbreviation  for  "when  given  to  EVAL,  causes  EVAL  to  return 
something'". 

As  abstract  entities.  MDL  objects  are,  of  course,  not  "visible".  There  is,  however,  a standard  way  of 
representing  abstract  MDL  objects  in  the  real  world.  The  standard  way  of  representing  any  given 
TYPE  of  MDL  object  will  be  given  below  when  the  TYPE  is  introduced.  These  standard 
representations  are  what  READ  understands,  and  what  PRINT  produces. 


2.3.  Example  (TYPE  FIX)  Til 

IS 

1 

The  following  has  occurred: 

First.  READ  recognized  the  character  1 as  the  representation  for  an  object  of  TYPE  FIX,  in  particular 
the  one  which  corresponds  to  the  integer  one.  (FIX  means  integer,  because  the  decimal  point  is 
understood  always  to  be  in  a fixed  position:  at  the  right-hand  end.)  READ  built  the  MDL  object 
corresponding  to  the  decimal  representation  typed,  and  returned  it. 

Then  EVAL  noted  that  its  input  was  of  TYPE  FIX.  An  object  of  TYPE  FIX  evaluates  to  itself,  so 
EVAL  returned  its  input  undisturbed. 

Then  PRINT  saw  that  its  input  was  of  TYPE  FIX,  and  printed  on  the  terminal  the  decimal  character 
representation  of  the  corresponding  integer. 
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2.4.  Example  (TYPE  FLOAT)  [1] 

1 .OS 

1.0 

What  went  on  was  entirely  analogous  to  the  preceding  example,  except  that  the  MDL  object  was  of 
TYPE  FLOAT.  (FIOAI  means  a real  number  (of  limited  precision),  because  the  decimal  point  can  float 
around  to  any  convenient  position:  an  internal  exponent  part  tells  where  it  'really*  belongs.) 


2.5.  Example  (TYPE  ATOH,  PNAME)  [I] 

GEORGES 

GEORGE 

This  time  a lot  more  happened. 

READ  noted  that  what  was  typed  had  no  special  meaning,  and  therefore  assumed  that  it  was  the 
representation  of  an  identifier,  that  is.  an  object  of  TYPE  ATOM.  (’Atom*  means  more  or  less 
indivisible.)  REAP  therefore  attempted  to  look  up  the  representation  in  a table  it  keeps  for  such 
purposes  [a  l 1ST  of  OBI  ISTs.  available  as  the  local  value  of  the  ATOM  OBLISTJ.  If  READ  finds  an 
ATOM  in  its  table  corresponding  to  the  representation,  that  ATOM  is  returned  as  READ'S  value.  If  READ 
fails  in  looking  up.  it  creates  a new  ATOM,  puts  it  in  the  table  with  the  representation  read  [INSERT 
into  <1  . ORl  1 5 T > usually],  and  returns  the  new  ATOM.  Nothing  which  could  in  any  way  be 
referenced  as  a legal  "value*  is  attached  to  the  new  ATOM.  The  initially-typed  representation  of  an 
ATOM  becomes  its  PNAME,  meaning  its  name  for  PRINT.  One  often  abbreviates  "object  of  TYPE  ATOM 
with  PNAME  name"  by  saying  "MOM  name'. 

EVAL,  given  an  ATOM,  returned  just  that  ATOM. 

PRINT,  given  an  ATOM,  typed  out  its  PNAME. 

At  the  end  of  this  chapter,  the  question  'what  is  a legal  PNAME*  will  be  considered.  Further  on,  the 
methods  used  to  attach  values  to  ATOMs  will  be  described. 


2.6.  FlXes,  FLOATS,  and  ATOMs  versus  READ:  Specifics 
2.6.1.  READ  and  FIXed-point  Numbers 

READ  considers  any  grouping  of  characters  which  are  solely  digits  to  be  a FIX,  and  the  radix  of  the 
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representation  is  decimal  by  default.  A • (hyphen)  immediately  preceding  such  a grouping 
represents  a negative  FIX.  The  largest  FIX  representable  on  the  PDP-10  is  two  to  the  35th  power 
minus  one.  or  34  350  738  367  (decimal):  the  smallest  is  one  less  than  the  negative  of  that  number.  If 
you  attempt  to  type  in  a FIX  outside  that  range,  READ  converts  it  to  a FLOAT;  if  a program  you 
write  attempts  to  produce  a FIX  outside  that  range,  an  overflow  error  will  occur  (unless  it  is 
disabled). 

The  radix  used  by  READ  and  PRINT  is  changeable  by  the  user:  however,  there  are  two  formats  for 
representations  of  FIXes  which  cause  READ  to  use  a specified  radix  independent  of  the  current  one. 
These  are  as  follows: 

(1)  If  a group  of  digits  is  immediately  followed  by  a period  (.),  READ  interprets  that  group  as 
the  decimal  representation  of  a FIX.  For  example,  10.  is  always  interpreted  by  READ  as  the 
decimal  representation  of  ten. 

(2)  If  a group  of  digits  is  immediately  enclosed  on  both  sides  by  asterisks  (*),  READ  interprets 
that  grotip  as  the  octal  representation  of  a FIX.  For  example,  *10*  is  always  interpreted  by 
REAO  as  the  octal  representation  of  eight. 


2.6.2.  READ  and  PRINT  versus  FLOATing-point  Numbers 

PRINT  can  produce,  and  REAO  can  understand,  two  different  formats  for  objects  of  TYPE  FLOAT. 
The  first  is  "decimal-point"  notation,  the  second  is  "scientific"  notation.  Decimal  radix  is  always 
used  for  representations  of  FLOATS. 

"Decimal-point"  notation  for  a FLOAT  consists  of  an  arbitrarily  long  string  of  digits  containing  one 
. (period)  which  is  followed  by  at  least  one  digit.  READ  will  make  a FLOAT  out  of  any  such  object, 
with  a limit  of  precision  of  one  part  in  2 to  the  27th  power. 

"Scientific"  notation  consists  of: 

(1)  a number. 

(2)  immediately  followed  by  E or  e (upper  or  lower  case  letter  E). 

(3)  immediately  followed  by  an  exponent, 

where  a "number"  is  an  arbitrarily  long  string  of  digits,  with  or  without  a decimal  point  (see 
following  note):  and  an  "exponent"  is  up  to  two  digits  worth  of  FIX.  This  notation  represents  the 
"number"  to  the  "exponent"  power  of  ten.  Note:  if  the  "number"  as  above  would  by  itself  be  a FIX, 
and  if  the  "exponent"  is  positive,  and  if  the  result  is  within  the  allowed  range  of  FIXes,  then  the 
result  will  be  a FIX.  For  example,  READ  understands  10E1  as  100  (a  FIX),  but  10E- 1 as  1.0000000  (a 
FLOAT). 

The  largcst-magnitude  FLOAT  which  can  be  handled  without  overflow  is  1.70141 18E-«-38  (decimal 
radix).  The  smallcst-magnitude  FLOAT  which  can  be  handled  without  underflow  is  . 14693679E-38. 


2.6.1  - 2.6.2 


Read,  Evaluate,  and  Print 


24 


The  MDL  Programming  Language 


2.6.3.  READ  and  PNAMEs 

The  quest  inn  "what  is  a legal  PNAME?"  is  actually  not  a reasonable  one  to  ask;  any  non-empty  string 
of  arbitrary  characters  can  be  the  PNAME  of  an  ATOM.  However,  some  PNAMEs  are  easier  to  type  to 
READ  than  others.  But  even  the  question  "what  are  easily  typed  PNAMEs?"  is  not  too  reasonable, 
because:  READ  decides  that  a group  of  characters  is  a PNAME  by  default:  if  it  can’t  possibly  be 
anything  else,  it’s  a PNAME.  So.  the  rules  governing  the  specification  of  PNAMEs  are  messy,  and  best 
expressed  in  terms  of  what  is  not  a PNAME.  For  simplicity,  you  can  just  consider  any  uninterrupted 
group  of  upper-  and  lower-case  letters  and  (customarily)  hyphens  to  be  a PNAME;  that  will  always 
work.  If  you  are  neither  a perfectionist  nor  a masochist,  skip  to  the  next  chapter. 

2.6.3.I.  Non-PNAMCs 

A group  of  characters  is  ikM  a PNAME  if: 

(1)  It  represents  a FLOAT  or  a FIX,  as  described  above  --  that  is,  it  is  composed  wholly  of  digits, 
or  digits  and  a single  . (period),  or  digits  and  a . and  the  letter  E or  e (with  optional  minus 
signs  in  the  right  places). 

(2)  If  begins  with  a . (period). 

(3)  It  contains  --  if  typed  interactively  --  any  of  the  characters  which  have  special  interactive 
effects:  ''O,  ^D,  AL,  *G,  AS,  “'0,  $ (ESC),  rubout. 

(4)  It  contains  a format  character  --  space,  carriage-return,  line-feed,  form-feed,  horizontal  tab, 
vertical  tab. 

(5)  It  contains  a , (comma)  or  a I (number  sign)  or  a ' (single  quote)  or  a ; (semicolon)  or  a X 
(percent  sign). 

(6)  It  contains  any  variety  of  bracket  --  ( or  ) or  L or  ] or  < or  > or  { or  ) or  * . 

In  addition,  the  character  \ (backslash)  has  a special  interpretation,  as  mentioned  below.  Also,  the 
pair  of  characters  ! - (exclamation-point  hyphen)  has  ? . extremely  special  interpretation,  which  you 
will  reach  at  chapter  15. 

The  characters  mentioned  in  cases  4 through  6 are  "separators"  --  that  is,  they  signal  to  READ  that 
whatever  it  was  that  the  preceding  characters  represented,  it’s  done  now.  They  can  also  indicate  the 
start  of  a new  object's  representation  (all  the  opening  "brackets"  do  just  that). 

?.6.3.2.  Examples 

The  following  examples  are  not  in  the  "standard  format’  of  " tine  typed  ini  result  printed ",  because 
they  are  not.  in  some  cases,  complete  objects:  hence.  READ  would  continue  waiting  for  the  brackets  to 
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be  closed  In  oilier  cases,  they  will  produce  errors  during  EVAluation  if  other  --  currently  irrelevant 
••  conditions  are  not  met.  Instead,  the  right-hand  column  will  be  used  to  state  just  what  READ 
thought  the  input  in  the  left-hand  column  really  was. 

ABCS  an  ATOM  of  PNAME  ABC 

abcS  an  ATOM  of  PNAME  abc 


ARB  II RAR II Y-LONG-PNAMES 
1 .2345S 
1 .2.345$ 

A .or . BS 
. A . or . BS 


an  ATOM  of  PNAME  ARBITRARILY-LONG-PNAME 
a FLOAT,  PRINTed  as  1.2345000 
an  ATOM  of  PNAME  1.2.345 
an  ATOM  of  PNAME  A. or  .B 

not  an  ATOM,  but  (as  explained  later)  a FORM  containing 
an  ATOM  of  PNAME  A.or.B 


MORf  THAN  ONfS 


three  ATOMs.  with  PNAMEs  MORE,  and  THAN,  and  ONE 


ab(cdS  an  ATOM  of  PNAME  ab,  followed  by  the  start  of  something 

else  (The  something  else  will  contain  an  ATOM  of  PNAME 
beginning  cd. ) 

12345A34S  an  ATOM  of  PNAME  12345A34  (If  the  A had  been  an  E,  the 

object  would  have  been  a FLOAT. ) 


2.6.3. 3.  \ (Rack slash)  in  AlOMs 

If  you  have  a strange,  uncontrollable  compulsion  to  have  what  were  referred  to  as  "separators"  above 
as  part  of  the  PNAMEs  of  your  ATOMs.  you  can  do  so  by  preceding  them  with  the  character  \ 
(backslash).  \ will  also  magically  turn  an  otherwise  normal  FIX  or  FLOAT  into  an  ATOM  if  it  appears 
amongst  the  digits.  In  fact,  backslash  in  front  of  any  character  changes  it  from  something  special 
to  "just  another  character"  (including  the  character  \).  It  is  an  escape  character. 

When  PR1N1  confronts  an  ATOM  which  had  to  be  backslashed  in  order  to  be  an  ATOM,  it  will 
dutifully  type  out  the  required  \s.  They  will  not.  however,  necessarily  be  where  you  typed  them; 
they  will  instead  be  at  those  positions  which  will  cause  READ  the  least  grief.  For  example.  PRINT  will 
typr  nut  a PNAMI  which  consists  wholly  of  digits  by  first  typing  a \ and  then  typing  the  digits  • no 
matter  where  you  originally  typed  the  \ (or  \s). 
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2.6.3. 4.  Examples  of  Awful  ATOMs 

The  following  examples  illustrate  the  amount  of  insanity  that  can  be  perpetrated  by  using  \.  The 
format  of  the  examples  is  again  non-standard,  this  time  not  because  anything  is  unfinished  or  in 
error,  but  because  commenting  is  needed:  PRINT  doesn’t  do  it  full  justice. 


n\  one\  «md\  a\  twot 
1234\56789S 


one  ATOM,  whose  PNAME  has  four  spaces  in  it 

an  ATOM  of  PNAME  123456789,  which  PRINTS  as 
\1234 56789 


123\  S 


an  ATOM  of  PNAME  123space,  which  PRINTS  as  \123\  , 
with  a space  on  the  end 

an  ATOM  whose  PNAME  is  a single  backslash 
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Chapter  3.  Built-in  Funotions 


3.1.  Representation  [I] 

Up  to  this  point,  all  the  objects  we  have  been  concerned  with  have  had  no  internal  structure 
discernible  in  MDL.  While  the  characteristics  of  objects  with  internal  structure  differ  greatly,  the 
way  READ  and  PRINT  handle  them  is  uniform,  to  wit: 

READ,  when  applied  to  the  representation  of  a structured  object,  builds  and  returns  an  object  of 
the  indicated  TYPE  with  elements  formed  by  applying  READ  to  each  of  their  representations  in 
turn. 

PRINT,  when  applied  to  a structured  object,  produces  a representation  of  the  object,  with  its 
elements  represented  as  PRINT  applied  to  each  of  them  in  turn. 

A MDL  object  which  is  used  to  represent  the  application  of  a function  to  its  arguments  is  an  object 
of  TYPE  TORM.  Its  printed  representation  is 

< func  arg-1  arg-2  ...  arg-N  > 

where  func  i*  an  object  which  designates  the  function  to  be  applied,  and  arg-1  through  arg-N  are 
objects  which  designate  the  arguments  or  "actual  parameters'*  or  "inputs".  A FORM  is  just  a 
structured  object  which  is  stored  and  can  be  manipulated  like  a LIST  (its  "primitive  type"  is  LIST  - 
chapter  6)  The  application  of  the  function  to  the  arguments  is  done  by  EVAL.  The  usual  meaning 
of  "function"  (uncapitalized)  in  this  document  will  be  anything  applicable  to  arguments. 


3.2.  Evaluation  [I] 

EVAL  applied  to  a FORM  acts  as  if  following  these  directions: 

First,  examine  the  func  (first  element)  of  the  FORM.  If  it  is  an  ATOM,  look  at  its  "value"  (global  or 
local,  in  that  order  - see  next  chapter).  If  it  is  not  an  ATOM,  EVAL  it  and  look  at  the  result  of  the 
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evaluation.  If  what  you  arc  looking  at  is  not  something  which  can  be  applied  to  arguments, 
complain  (via  the  ERROR  function).  Otherwise,  inspect  what  you  are  looking  at  and  follow  its 
directions  in  evaluating  or  not  evaluating  the  arguments  (chapters  9 and  19)  and  then  'apply  the 
function  — that  is.  EVAL  the  body  of  the  object  gotten  from  func. 


3.3.  Built-in  Functions  (TYPE  SUBR,  TYPE  FSUBR)  fll 

The  built-in  functions  of  MDL  come  in  two  varieties:  those  which  have  all  their  arguments  EVALed 
before  operating  on  them  (TYPE  SUBR,  for  'subroutine*,  pronounced  "subber")  and  those  which  have 
none  of  their  arguments  EVALed  (TYPE  FSUBR,  historically  from  Lisp  (Moon.  1974).  pronounced 
effsi.bhrr  ).  Collectively  they  will  be  called  F/SUBRs.  although  that  term  is  not  meaningful  to  the 
interpreter.  See  appendix  2 for  a listing  of  all  F/SDBRs  and  short  descriptions.  The  term 
Subroutine"  will  be  used  herein  to  mean  both  F/SUBRs  and  compiled  user  programs  (RSUBRs  and 
RSUBR-ENTRYs -chapter  19).  5 

Unless  otherwise  stated,  every  MDL  built-in  Subroutine  mentioned  is  of  TYPE  SUBR.  Also,  when  it 
is  stated  that  an  argument  of  a SUBR  must  be  of  a particular  TYPE,  note  that  this  means  that  EVAL 
of  what  is  there  must  he  of  the  particular  TYPE 

Another  convenient  abbreviation  which  will  be  used  is  'the  SUBR  pname'  in  place  of  'the  SUBR  which 

is  initially  the  Value’  of  the  ATOM  of  PNAME  pname.  "The  FSUBR  pname " will  be  used  with  a similar 
meaning. 


3.4.  Examples  (♦  and  FIX;  Arithmetic)  [11 

<♦24  6>S 
12 


The  SUBR  + adds  numbers.  Most  of  the  usual  arithmetic  functions  are  MDL  SUBRs:  ♦,  *,  /, 

MIN.  MAX,  MOD,  SIN,  COS,  ATAN,  SORT,  LOG,  EXP,  ABS.  (See  appendix  2 for  short  descriptions 
of  these.)  All  except  MOD,  which  wants  FIXes.  are  indifferent  as  to  whether  their  arguments  are 
FLOAT  or  FIX  or  a mixture.  In  the  last  case,  they  exhibit  'contagious  FLOATing':  one  argument  of 
TYPE  FLOAT  forces  the  result  to  be  of  TYPE  FLOAT. 


<F IX  1.0>S 
I 


The  SUBR  EIX  explicitly  returns  a FIXcd-point  number  corresponding  to  a FLOATing-point  number. 
FLOAT  does  the  opposite. 

<♦  5 <»  2 3»S 
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11 

<SQRT  <+  <*  3 3>  (M  4»>S 

5.0 

<-53  2>S 
0 

<-  5>S 
-5 

<MIN  1 2.0>$ 

1 .0 

</  11  7 2 .0>S 
0.5 

Note  this  last  result:  the  division  of  two  FIXes  gives  a FIX  with  truncation,  not  rounding,  of  the 
remainder:  the  intermediate  result  remains  a FIX  until  a FLOAT  argument  is  encountered. 


3.5.  Arithmetic:  Details 

+ , -,  *,  /,  MIN,  and  MAX  all  take  any  number  of  arguments,  doing  the  operation  with  the  first 
argument  and  the  second,  then  with  that  result  and  the  third  argument,  etc.  If  called  with  no 
arguments,  each  returns  the  identity  for  its  operation  (0,  0,  1,  1,  the  greatest  FLOAT,  and  the 
least  FLOAT,  respectively):  if  called  with  one  argument,  each  acts  as  if  the  identity  and  the  argument 
had  been  supplied.  They  all  will  cause  an  overflow  or  underflow  error  if  any  result,  intermediate  or 
final,  is  too  large  or  too  small  for  the  machine's  capacity.  (That  error  can  be  disabled,  if  necessary 
- section  16.9). 

One  arithmetic  function  that  always  requires  some  discussion  is  the  pseudo-random-number 
generator.  MDI.'s  is  named  RANDOM,  and  it  always  returns  a FIX,  uniformly  distributed  over  the 
whole  range  of  FIXes.  If  RANDOM  is  never  called  with  arguments,  it  always  returns  the  exact  same 
sequence  of  numbers,  for  convenience  in  debugging.  "Debugged"  programs  should  give  RANDOM  two 
arguments  on  the  first  call,  which  become  the  seeds  for  a new  sequence.  Popular  choices  of  new 
seeds  are  the  numbers  given  by  TIME  (which  see),  possibly  with  bits  modified  (chapter  18).  Example 
("pick  a number  from  one  to  ten"): 

<+  1 <MOD  < RANDOM > 10»$ 
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Chapter 


4.  Values  of  Atoms 


4.1.  General  [1] 


There  are  two  kinds  of  "value"  which  ran  be  attached  to  an  ATOM.  An  ATOM  can  have  either,  both,  or 
neither.  They  interact  in  no  way  (except  that  alternately  referring  to  one  and  then  the  other  ia 
inefficient!.  These  two  values  are  referred  to  as  the  local  value  and  the  global  value  of  an  ATOM. 
The  terms  "local"  and  “global"  arc  relative  to  PROCESSes  (chapter  20),  not  functions  or  programs. 
The  SUBRs  which  reference  the  local  and  global  values  of  an  ATOM,  and  some  of  the  characteristics 
of  local  versus  global  values,  follow. 


4.2.  Global  Va lues 


4.2.1.  SETG  [I] 

A global  value  can  be  assigned  to  an  ATOM  by  the  SUBR  SETG  ("set  global"),  as  in 

<SETG  atom  any} 

where  atom  must  EVAL  to  an  ATOM,  and  any  can  EVAL  to  anything.  EVAL  of  the  second  argument 
becomes  the  global  value  of  FVAL  of  the  first  argument.  The  value  returned  by  the  SETG  is  its 
second  argument,  namely  the  new  global  value  of  atom. 

Examples: 

<SETG  FOO  <SFTG  BAR  500»S 
500 

The  above  made  the  global  values  of  both  the  ATOM  FOO  and  the  ATOM  BAR  equal  to  the  FIXed-point 
number  500 . 

<SETG  BAR  rOO>S 
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That  made  the  global  value  of  the  ATOM  BAR  equal  to  the  ATOM  F00. 


4.2.2.  GVAL  [I] 

The  SUBR  GVAL  ("global  value")  is  used  to  reference  the  global  value  of  an  ATOM. 

<GVAL 

returns  as  a value  the  global  value  of  atom.  If  atom  does  not  evaluate  to  an  ATOM,  or  if  the  ATOM  to 
which  it  evaluates  has  no  global  value,  an  error  occurs. 

GVAL  applied  to  an  ATOM  anywhere,  in  any  PROCESS,  in  any  function,  will  return  the  same  value. 
Any  SETG  anywhere  changes  the  global  value  for  everybody.  Global  values  are  context-independent. 

READ  understands  the  character  , (comma)  as  an  abbreviation  for  an  application  of  GVAL  to 
whatever  follows  it.  PRINT  always  translates  an  application  of  GVAL  into  the  comma  format.  The 
following  are  absolutely  equivalent: 

.atom  <GVAL  afom> 

Assuming  the  examples  in  section  4.21  were  carried  out  in  the  order  given,  the  following  will 
evaluate  as  indicated: 

.roos 

500 

<GVAL  FOO>S 

500 

.BARS 

FOO 

..BARS 

500 


4.2.3.  Note  on  SUBRs  and  FSUBRs 

The  initial  GVAls  of  the  ATOMs  used  to  refer  to  MDL  "built-in"  Subroutines  are  the  SUBRs  and  FSUBRs 
which  actually  get  applied  when  those  ATOMs  are  referenced.  If  you  don’t  like  the  way  those 
supplied  routines  work,  you  are  perfectly  free  to  SETG  the  ATOMs  to  your  own  versions. 


4.2.1  - 4.2.3 
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4.2.4.  GUNASSIGN 

< GUN  ASSIGN  Atom) 

(“glob.il  unassign")  cause*  Atom  to  have  no  assigned  global  value,  whether  or  not  it  had  one 
previously.  The  storage  used  for  the  global  value  can  become  free  for  other  uses. 

4.3.  t ot  al  Values 


4.3.1.  SE I (I) 

The  SUBR  SET  is  used  to  assign  a local  value  to  an  ATOM.  Applications  of  SET  are  of  the  form 

< SE  T Atom  Any  > 

SET  returns  EVAl  of  Any  just  like  SETG. 

Examples: 

<SE T BAR  <SET  F00  100»S 
100 

Both  BAR  and  F00  have  been  given  local  values  equal  to  the  FIXed-point  number  100. 

<SET  TOO  BAR >S 
BAR 

FOO  has  been  given  the  local  value  BAR. 

Note  that  neither  of  the  above  did  anything  to  any  global  values  FOO  and  BAR  might  have  had. 

4.3.2.  LVAl  [I] 

The  SUBR  used  to  extract  the  local  value  of  an  ATOM  is  named  LVAL.  As  with  GVAL,  READ 
understands  an  abbreviation  for  an  application  of  LVAL:  the  character  . (period),  and  PRINT 
produces  it.  The  following  two  representations  are  equivalent,  and  when  EVAL  operates  on  the 
corresponding  MDL  object,  it  returns  the  current  local  value  of  atom: 

<LVAL  Atom > .Atom 


i 


1 


' 
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The  local  value  of  an  ATOM  is  unique  within  a PROCESS.  SETting  an  ATOM  in  one  PROCESS  has  no 
effect  on  its  LVAL  in  another  PROCESS,  because  each  PROCESS  has  its  own  'control  stack”  (chapters 
20  and  22). 

Assume  all  of  the  previous  examples  in  this  chapter  have  been  done.  Then  the  following  evaluate  as 
indicated: 


.BARS 

100 

<LVAL  BAR>$ 
100 
.FOOS 
BAR 
..FOOS 
FOO 


4.3.3.  UNASSIGN 

< UNASSIGN  Mom> 

causes  atom  to  have  no  assigned  local  value,  whether  or  not  it  had  one  previously. 


4.4.  VALUE 


VALUE  is  a SUBR  which  takes  an  ATOM  as  an  argument,  and  then: 

(1)  if  the  ATOM  has  an  LVAL,  returns  the  LVAL; 

(2)  if  the  ATOM  has  no  LVAL  but  has  a GVAL,  returns  the  GVAL; 

(3)  if  the  ATOM  has  neither  a GVAL  nor  an  LVAL,  calls  the  ERROR  function. 

This  order  of  seeking  a value  is  the  opposite  of  that  used  when  an  ATOM  is  the  first  element  of  a 
FORM.  The  latter  will  be  called  the  C/LVAL,  even  though  that  name  is  not  used  in  MDL. 

Example: 


CUNASSIGN  A>S 
A 

<SETG  A 1 >3 
1 

<VALUE  A>S 
1 

<SET  A 2>i 


4.3.2  • 4.4 
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Chapter  5.  Simple  Functions 


51.  General  [IJ 

The  MDL  equivalent  of  a "program"  (uncompiled)  is  an  object  of  TYPE  FUNCTION.  Actually,  full- 
blown "programs"  arc  usually  composed  of  sets  of  FUNCTIONS,  with  most  FUNCTIONS  in  the  set  acting 
as  "subprograms". 

A FUNCTION  may  he  considered  to  be  a SUBR  or  FSUBR  which  you  yourself  define.  It  is  "run"  by 
using  a F ORH  to  apply  it  to  arguments  (for  example,  ifunchon  arg-l  arg-2  ...  >),  and  it  always 
"returns"  a single  object,  which  is  used  as  the  value  of  the  FORM  that  applied  it.  The  single  object 
may  be  ignored  by  whatever  “ran"  the  FUNCTION  — equivalent  to  "returning  no  value  --  or  it  may  be 
a structured  object  containing  many  objects  --  equivalent  to  "returning  many  values  . MDL  is  an 
“applicative"  language,  in  contrast  to  "imperative"  languages  like  Fortran.  In  MDL  it  is  impossible 
to  return  values  through  arguments  in  the  normal  case;  they  can  be  returned  only  as  the  value  of  the 
FORM  itself,  or  as  side  effects  to  structured  objects  or  global  values. 

In  this  chapter  a simple  subset  of  the  FUNCTIONS  you  can  write  is  presented,  namely  FUNCTIONS 
which  "act  like"  SUBRs  with  a fixed  number  of  arguments.  While  this  class  corresponds  to  about  907. 
of  the  FUNCTIONS  ever  written,  you  won’t  be  able  to  do  very  much  with  them  until  you  read  further 
and  learn  more  about  MDL's  control  and  manipulatory  machinery.  However,  all  that  machinery  is 
just  a bunch  of  SUBRs  and  FSUBRs.  and  you  already  know  how  to  "use"  them;  you  just  need  to  be  told 
what  they  do.  Once  you  have  FUNCTIONS  under  your  belt,  you  can  immediately  make  use  of 
everything  presented  from  this  point  on  in  this  document.  In  fact,  we  recommend  that  you  do  so. 


5.2.  Representation  [I] 

A FUNCTION  is  just  another  data  object  in  MDL.  of  TYPE  FUNCTION.  It  can  be  manipulated  like  any 
other  data  object.  PRINT  represents  a FUNCTION  like  this: 

#FUNCT ION  (elements) 


5-5.2 
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that  is.  a number  sign,  the  ATOM  FUNCTION,  a left  parenthesis,  each  of  the  elements  of  the 
FUNCTION,  and  a right  parenthesis.  Since  PRINT  represents  FUNCTIONS  like  this,  you  can  type  them 
in  to  READ  this  way.  (Rut  there  are  a few  TYPEs  for  which  that  implication  is  false.) 

The  elements  of  a FUNCTION  can  he  "any  number  of  anythings";  however,  when  you  use  a FUNCTION 
(apply  it  with  a FORM).  EVAL  will  complain  if  the  FUNCTION  does  not  look  like 

erUNCTION  ( act:  atom  arguments. -list  dec I body ) 

where  act  and  ded  are  optional  (section  9.8  and  chapter  14);  body  is  at  least  one  MDL  object  — any 
old  MD1.  object:  and.  in  this  simple  case,  argument s is 


( any  number  of  ATQMs) 


that  is.  something  READ  and  PRINTed  as:  left  parenthesis,  any  number  *•  including  lero  — of  ATOMS, 
right  parenthesis.  (This  is  actually  a normal  MDL  object  of  TYPE  LIST,  containing  only  ATOMs.) 

Thus,  these  fUNCTlONs  will  cause  errors  - but  only  when  used: 


^FUNCTION  () 

#rUNCTION  ((1)  2 7.3) 
••FUNCTION  ((A  B C D)) 
#FUNCT ION  (<♦  1 2>  A C) 


--  no  argument  LIST  or  body 
--  non-ATOH  in  argument  LIST 
--  no  body 
--  no  argument  LIST 


These  FUNCTIONS  will  never  cause  errors  because  of  format: 


#rilNCTION  (012  3 4 5) 

••FUNCTION  ((A)  A) 

•FUNCTION  (()()()()()()()()) 

••FUNCTION  ((A  B C D EE  F G H HIYA)  <♦  .A  .HIYA>) 

••FUNCTION  ((0)  <SETG  C <*  .0  ,C»  <♦  <HOD  ,C  3>  .Q>) 

and  the  last  tsvn  actually  do  something  which  might  be  useful.  (The  first  three  are  rather 
pathological,  but  legal.) 


5.3.  Application  of  FUNCT IONs:  Rinding  [1} 

FUNCTIONS,  like  SUBRs  and  FSUBRs.  are  applied  using  FORNs.  So. 

< ‘•FUNCT ION  ((X)  <•  .X  .X>)  5>S 

25 

applied  the  indicated  FUNCTION  to  5 and  returned  25. 
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What  FVAL  dors  when  applying  a FUNCTION  is  the  following: 

(1)  Create  a "world"  in  which  the  ATOMs  of  the  argument  LIST  have  been  SET  to  the  values 
applied  to  the  FUNCTION,  and  all  other  ATOMs  have  their  original  values.  This  is  called 
"binding". 

--  In  the  above,  this  is  a "world"  in  which  X is  SET  to  5. 

(2)  In  that  new  "world",  evaluate  all  the  objects  in  the  body  of  the  FUNCTION,  out  after  the 
other,  from  first  to  last. 

- In  the  above,  this  means  evaluate  <*  .X  .X>  in  a "world"  where  X is  SET  to  5. 

(31  Throw  away  the  "world"  created,  and  restore  the  LVALs  of  all  ATOMs  bound  in  this 
application  of  the  FUNCTION  to  their  originals  (if  any).  This  is  called  "unbinding*. 

- In  the  above,  this  simply  gives  X back  the  local  value,  if  any,  that  it  had  before  binding. 

(4)  Return  as  a value  the  |ast^  value  obtained  when  the  FUNCTION’S  body  was  evaluated  in  step 

(2). 

- In  the  above,  this  means  return  25  as  the  value. 

Tlie  "world"  mentioned  above  is  actually  an  object  of  TYPE  ENVIRONMENT.  The  fact  that  such 
"worlds"  are  separate  from  the  FUNCTIONS  which  cause  their  generation  means  that  all  MDL 
FUNCTIONS  can  be  used  recursively. 


The  only  thing  that  is  at  all  troublesome  in  this  sequence  is  the  effect  of  creating  these  new 
"worlds",  in  particular,  the  fact  that  the  previous  world  is  completely  restored.  This  means  that  if, 
inside  a FUNCTION,  you  SET  one  of  its  argument  ATOMs  to  something,  that  new  LVAL  will  not  be 
remembered  svhen  FVAL  leaves  the  FUNCTION.  However,  if  you  SET  an  ATOM  which  is  not  in  the 
argument  LIST  (or  SETG  any  ATOM)  the  new  local  (or  global)  value  will  be  remembered.  Examples: 

<SET  X 0>$ 

0 

^FUNCTION  ((X)  <SET  X <•  .X  .X»)  5>S 

25 

.XS 

0 
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On  the  other  hand. 

<SET  Y 0>i 
0 

^FUNCTION  ((X)  <SET  Y <«  .X  .X»)  5>S 

25 

.YS 

25 

By  using  PRINT  as  a SUBR,  we  can  "see"  that  an  argument’s  LVAL  really  is  changed  while  EVALuating 
the  body  of  a FUNCTION: 

<SET  X 5>$ 

5 

<#FUNCTION  ((X)  <PRINT  .X>  <♦  .X  10>)  3>$ 

3 13 

.XS 

5 

The  first  number  after  the  application  FORM  was  typed  out  by  the  PRINT;  the  second  is  the  value  of 
the  application. 

Remembering  that  LVALs  of  ATOMs  tun  in  argument  LISTs  are  not  changed,  we  can  reference  them 
within  FUNCTIONS,  as  in 

<5ET  Z 100>$ 

100 

<#FUNCT ION  ((Y)  </  .Z  .Y>)  5>S 

20 

ATOMs  used  like  Z or  Y in  the  above  examples  are  referred  to  as  "free  variables".  The  use  of  free 
variables,  while  often  quite  convenient,  is  rather  dangerous  unless  you  know  exactly  how  a 
FUNCTION  will  always  be  used:  if  a FUNCTION  containing  free  variables  is  used  within  a FUNCTION 
within  a FUNCTION  within  . . ..  one  of  those  FUNCTIONS  might  just  happen  to  use  your  free  variable 
in  its  argument  LIST , binding  it  to  some  unknown  value  and  possibly  causing  your  use  of  it  to  be 
erroneous.  Please  note  that  "dangerous",  as  used  above,  really  means  that  it  may  be  effectively 
impossible  (I)  for  other  people  to  use  your  FUNCTIONS,  and  (2)  for  you  to  use  your  FUNCTIONS  a 
month  (two  weeks?)  later. 
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5.4.  Defining  t UNCI  lONs  (FUNCTION  and  DEFINE)  [II 

Obviously,  typing  #1  UNCI  ION  (...)  all  the  time  is  neither  reasonable  nor  adequate  for  many 
purposes.  Normally,  you  just  want  a FUNCTION  to  be  the  GVAl  of  some  ATOM  --  the  way  SUBRs  and 
FSUBRs  are  - so  you  can  use  it  repeatedly  (and  recursively).  Note  that  you  generally  do  not  want  a 
FUNCTION  to  be  the  LVAL  of  an  ATOM;  this  has  the  same  problems  as  free  variables.  (Of  course,  there 
are  always  cases  where  you  are  being  clever  and  want  the  ATOM  to  be  re-bound  . . . .) 

One  svay  to  "name"  a FUNCTION  is 

(SETG  SQUARE  IFUNCTION  ((X)  <•  .X  .X>)>S 
#FUNC1I0N  ((X)  <*  .X  .X>) 


So  that 


I 

J 


i 

* 


(SQUARE  b>S 
Zb 

(SQUARE  100>S 
10000 

Another  way.  which  is  somewhat  cleaner  in  its  typing: 

(SETG  SQUARE  (FUNCTION  (X)  («  .X  .X»>$ 

#FUNCT ION  ((X)  («  .X  .X>) 

FUNCTION  is  an  rstlllR  which  simply  makes  a FUNCTION  out  of  its  arguments  and  returns  the  created 
FUNCTION. 

This,  however,  is  generally  the  best  way: 

(DEFINE  SQUARE  (X)  (*  .X  .X»S 

SQUARE 

.SQUARES 

^FUNCTION  ((X)  (*  .X  .X>) 

The  last  two  lines  immediately  above  are  just  to  prove  that  DEFINE  did  the  "right  thing". 

DEFINE  is  an  I SUBR  which  SrTGs  FVAl  of  it;  first  argument  to  the  FUNCTION  it  nukes  from  the  rest 
of  its  arguments,  and  then  returns  EVAL  of  its  first  argument.  DEFINE  obviously  requires  the  least 
typing  of  the  above  methods,  and  is  "best"  from  that  standpoint.  However,  the  real  reason  for  using 
DEFINE  is  the  following:  If  FVAL  of  DEFINE’s  first  argument  already  has  a GVAL,  DEFINE  produces  an 
error.  This  helps  to  krrp  you  from  accidently  redefining  things  --  like  MDL  SUBRs  and  FSUBRs.  The 
SETG  constructions  should  be  used  only  when  you  really  do  want  to  redefine  something.  DEFINE  will 
be  used  in  the  rest  of  this  document. 


5.4 


J 
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[Actually,  if  it  is  absolutely  necessary  to  use  DEFINE  to  'redefine*  things,  there  is  a 'switch'  which 
can  be  used:  if  the  LVAL  of  the  ATOM  REDEFINE  is  T (or  anything  not  of  TYPE  FALSE).  DEFINE  will 
produce  no  errors.  The  normal  state  can  be  restored  by  evaluating  <SET  REDEFINE  <>>.  See 
chapter  8.] 


5.5.  Examples  (Com incuts)  [II 

Using  SQUARE  as  defineo  above: 

< DEFINE  IIYP0T  (SIDE-1  SIDE-2) 

.-"this  is  a comment.  This  FUNCTION  finds  the 
length  of  the  hypotenuse  of  a right  triangle 
of  sides  SIDE-1  and  SIDE-2." 

<SQRT  <♦  < SQUARE  .SIDE-1>  < SQUARE  .SIDE-2»»S 

IIVO0T 

<HYP01  3 4)1 
5.0 

Note  that  carriage-returns,  line-feeds,  tabs.  etc.  are  just  separators,  like  spaces.  A comment  is  any 
sine  If  MOL  object  which  follows  a ; (semicolon).  A comment  can  appear  between  any  two  MDL 
objects.  A comment  is  totally  ignored  by  EVAL  but  remembered  and  associated  by  READ  with  the 
place  in  the  FUNCTION  (or  any  other  structured  object)  where  it  appeared.  (This  will  become  clearer 
after  chapter  13.)  The  "s  (double-quotes)  serve  to  make  everything  between  them  a single  MDL 
object,  whose  TYPE  is  STRING  (chapter  7).  (SQRT  is  the  SUBR  which  returns  the  square  root  of  its 
argument.  It  always  returns  a FLOAT.) 

A whimsical  FUNC110N: 

< DEFINE  ONE  (THETA)  ;"This  FUNCTION  always  returns  1." 

<♦  < SQUARE  <SIN  ,THETA» 

< SQUARE  <C0S  .THETA»»S 

ONE 

<0NE  5>S 
0.99999994 
CONE  0 . 23>S 
0.99999999 

ONE  always  returns  (approximately)  one.  since  the  sum  of  the  squares  of  sin(x)  and  cos(x)  is  unity 
for  any  x.  (SIN  and  COS  always  return  FLOATs,  and  each  takes  its  argument  in  radians.  ATAN 
(arctangent)  returns  its  value  in  radians.  Any  other  trigonometric  function  can  be  compounded 
from  these  three.) 
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MDL  doesn't  have  a general  "to  the  power’  SUBR,  so  let's  define  one  using  LOG  and  EXP  (log  base  e, 
and  e to  a power,  respectively:  again,  they  return  FLOATs). 

<DEFINE  **  (NUM  PWR)  <EXP  <«  .PWR  <L0G  .NUM»»S 
• * 

<**  2 2>S 

4.0000001 
<**  5 3>S 
125.00000 
<«*  25  0 . 5>J 

5.0000001 


Two  FUNCTIONS  which  use  a single  global  variable  (Since  the  GVAL  is  used,  it  cannot  be  rebound.): 

<DEF INE  START  ()  <SETG  GV  0»J 
START 

< DEFINE  STEP  ()  <SETG  GV  <♦  ,GV  1»>S 

STEP 

<START>S 

0 

<STEP>5 

1 

<STEP>$ 

2 

<5TEP>S 

3 

START  and  STEP  take  no  arguments,  so  their  argument  LISTs  are  empty. 

An  interesting,  hut  pathological.  FUNCTION: 

<DEFINE  INC  (ATM)  <SET  .ATM  <♦  ..ATM  1»>S 
INC 

<SET  A 0>S 
0 

< INC  A>S 
1 

< INC  A>S 
2 

.AS 

2 

INC  takes  an  ATOM  as  an  argument,  and  SETs  that  ATOM  to  its  current  LVAL  plus  1.  Note  that  inside 
INC,  the  ATOM  ATM  is  SET  to  the  ATOM  which  is  its  argument;  thus  ..ATM  returns  the  LVAL  of  the 
argument.  However,  there  is  a problem: 
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<SET  ATM  0>S 
0 

< INC  A1M>S 


*1 RROR* 

ARG-WRONG-TYPE 


LISTCNING-AT-LEVEL  Z PROCESS  1 
< ARGS  <f RAME  <TRAME>»S 
[ATM  1] 
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The  error  occurred  because  .ATM  was  ATM,  the  argument  to  INC,  and  thus  . .ATM  was  ATM  also.  We 
really  want  the  outermost  . in  ..ATM  to  be  done  in  the  "world"  (ENVIRONMENT)  which  existed  just 
before  INC  was  entered  --  and  this  definition  of  INC  does  both  applications  of  LVAL  in  its  own 
"world".  Techniques  for  doing  INC  "correctly"  will  be  covered  below.  Read  on. 
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Chapter  6.  Data  Types 


6.1.  General  [I] 

A MDl.  object  consists  of  two  parts:  its  TYPE  and  its  “data  part’ (appendix  I).  The  interpretation  of 
the  "data  part"  of  an  ob  ject  depends  of  course  on  its  TYPE.  The  structural  organization  of  an  object, 
that  is.  the  way  it  is  organized  in  storage,  is  referred  to  as  its  “primitive  type*.  While  there  are 
many  different  TYPrs  of  objects  in  MDL,  there  arc  fewer  primitive  types. 

All  structured  objects  in  MDl.  are  ordered  sequences  of  elements.  As  such,  there  are  SUBRs  which 
operate  on  all  of  them  uniformly,  as  ordered  sequences.  Oil  the  other  hand,  the  reason  for  having 
different  primitive  types  of  structured  objects  is  that  there  are  useful  qualities  of  structured  objects 
which  are  mutually  incompatible.  There  are,  therefore,  SUBRs  which  do  not  work  on  all  structured 
objects;  these  SUBRs  exist  to  take  full  advantage  of  those  mutually  incompatible  qualities.  The 
most -commonly -used  primitive  types  of  structured  objects  are  discussed  in  chapter  7,  along  with 
those  special  SUBRs  operating  on  them. 

It  is  very  easy  to  make  a new  MDL  object  that  differs  from  an  old  one  only  in  TYPE,  as  long  as  the 
primitive  type  is  unchanged.  It  is  relatively  difficult  to  make  a new  structured  object  that  differs 
from  an  old  one  in  primitive  type,  even  if  it  has  the  same  elements. 

Before  talking  any  more  about  structured  objects,  some  information  needs  to  be  given  about  TYPES 
in  general. 


6.2.  Prin ted  Representation  [II 

Tlirre  are  many  TYPEs  for  which  MDL  has  no  specific  representation.  There  aren’t  enough  different 
kinds  of  brackets.  The  representation  used  for  TYPES  without  any  special  representation  is 

ttvpc  r cpr  merit  Mion-*$-i(-it-were-its-primitive-type 

READ  will  understand  that  format  for  any  TYPE,  and  PRINT  will  use  it  by  default.  This 


6 - 62 


Data  Types 


The  MDL  Programming  Language 


representational  format  will  be  referred  to  below  as  "#  notation''.  It  was  used  above  to  represent 
FUNCTIONS. 


6.3.  SlIBRs  Related  to  TYPEs 


6.3.1.  TYPE  [I] 

<TYPE  any') 

returns  an  ATOM  whose  PNANE  corresponds  to  the  TYPE  of  any.  There  is  no  TYPE  TYPE".  To  type  a 
TYPE  (aren't  homonyms  wonderful?),  just  type  the  appropriate  ATOM,  like  FIX  or  FLOAT  or  ATOM  etc. 
However,  in  this  document  we  will  use  the  convention  that  a metasyntactic  variable  can  have  type 
for  a "data  type";  for  example,  foo.type  means  that  the  TYPE  of  too  is  ATOM,  but  the  ATOM  must  be 
something  that  the  SUBR  TYPE  can  return. 

Examples: 

< TYPE  IH 
FIX 

< TYPE  1.0>S 
FLOAT 

< TYPE  ♦>* 

ATOM 

<TYPE  .♦>! 

SUBR  . 

CTYPE  fdORGE  >S 
ATOM 


6.3.2.  PR1M1YPE  [I] 

< PRIM TYPE  any> 

evaluates  to  the  primitive  type  of  any.  The  PRIMTYPE  of  any  is  an  ATOM  which  also  represents  a 
TYPE.  The  way  an  object  can  be  manipulated  depends  solely  upon  its  PRIMTYPE;  the  way  it  is 
evaluated  depends  upon  its  TYPE . 

Examples: 

< PR IMT YPF  l>J 
WORD 

< PRIMTYPE  1.0>S 
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WORD 

<PRIMTYPE  ,♦>* 
WORD 

<PR1MTYPE  GEORGE >S 
ATOM 


6.S.S.  TYPEPRIM  (I] 

<TYPEPRIM  type> 


returns  tlie  PR1MTYPE  of  ait  object  whose  TYPE  is  type  type  is.  as  usual,  an  ATOM  used  to  designate  a 
TYPE. 

Examples: 


< TYPEPRIM  FIX>S 
WORD 

< TYPEPRIM  FL0AT>$ 
WORD 

<TYPEPRIM  FUBR>S 
WORD 

< 1 YPEPRIM  ATOM>S 
ATOM 

OYPEPRIM  FORM>S 
LIST 


6.3.4.  CHTYPE  [I] 

<CHTYPE  any  type> 

("change  type")  returns  a new  object  that  has  TYPE  type  and  the  same  "data  part"  as  any  (appendix 


<CHTYPE  (♦  2 2)  F0RM>S 
<♦  2 2> 

An  error  is  generated  if  the  PRIMTYPE  of  any  is  not  the  same  as  the  TYPEPRIM  of  type.  An  error  will 
also  be  generated  if  the  attempted  CHTYPE  is  dangerous  and/or  senseless,  for  example,  CHTYPEing  a 
FIX  to  a SUBR . Unfortunately,  there  are  few  useful  examples  we  can  do  at  this  point. 

(CHTYPEing  a FIX  to  a FLOAT  or  vice  versa  produces,  in  general,  nonsense,  since  the  bit  formats  for 
FIXes  and  FLOATs  are  different.  The  SUBRs  FIX  and  FLOAT  convert  between  those  formats.  Useful 
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obscurity:  because  of  their  internal  representations  on  the  PDP-10,  <CHTYPE  <MAX>  FIX>  gives  the 
least  possible  TIX,  and  analogously  for  MIN.] 

Passing  note:  "#  notation"  is  just  an  instruction  to  READ  saying  "READ  the  representation  of  the 
PRIMTYPE  normally  and  (literally)  CHTYPE  it  to  the  specified  TYPE".  [Or.  if  the  PRIMTYPE  is 
TEMPLATE,  "apply  the  GVAL  of  the  TYPE  name  (which  should  be  a TEMPLATE  constructor)  to  the  given 
elements  of  the  PRIMTYPE  TEMPLATE  as  arguments."] 


6.4.  More  SUBRs  Related  to  TYPEs 


6.4.1.  ALLTYPES 

<ALLTYPES> 

returns  a VECTOR  (chapter  7)  containing  just  those  ATOMs  which  can  currently  be  returned  by  TYPE 
or  PRIMTYPE.  This  is  the  very  "TYPE  vector"  (section  22.1)  that  the  interpreter  uses;  look,  but  don't 
touch.  No  examples:  try  it.  or  see  appendix  3. 


6.4.2.  VALIO-TYPE? 

<VALID-TYPE?  a(om> 

returns  #FALSE  ()  if  atom  is  not  the  name  of  a TYPE,  and  the  same  object  that  <TYPE-C  »tom> 
(section  19.5)  returns  if  it  is. 


6.4.3.  NEWTYPE 

MDL  is  a type-extensible  language,  in  the  sense  that  the  programmer  can  invent  new  TYPEs  and  use 
them  in  every  way  that  the  predefined  TYPEs  can  be  used.  A prog  ram -defined  TYPE  is  called  a 
NEWTYPE.  Now  PRIMTYPEs  cannot  be  invented  except  by  changing  the  interpreter;  thus  the  TYPEPRIH 
of  a NEWTYPE  must  he  chosen  from  those  already  available.  But  the  name  of  a NEWTYPE  (an  ATOM  of 
course)  can  be  chosen  freely  --  so  long  as  it  does  not  conflict  with  an  existing  TYPE  name.  More 
importantly,  the  program  that  defines  a NEWTYPE  can  be  included  in  a set  of  programs  for 
manipulating  objects  of  the  NEWTYPE  in  ways  that  are  more  meaningful  than  the  predefined  SUBRs 
of  MDL. 

Typically  an  object  of  a NEWTYPE  is  a structure  that  is  a model  of  some  entity  in  the  real  world  ~ or 
whatever  world  the  program  is  concerned  with  --  and  the  elements  of  the  structure  are  models  of 
parts  or  aspects  of  the  real-world  entity.  A NEWTYPE  definition  is  a convenient  way  of  formaliting 
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this  correspondence,  of  writing  it  down  for  all  to  see  and  use  rather  than  keeping  it  in  your  head. 
If  the  defining  set  of  programs  provides  functions  for  manipulating  the  NEWTYPE  objects  in  all 
ways  that  are  meaningful  for  the  intended  uses  of  the  NEWTYPE,  then  any  other  program  that  wants 
to  use  the  NEW  TYPE  can  call  the  manipulation  functions  for  all  its  needs,  and  it  need  never  know  or 
care  about  the  internal  details  of  the  NEWTYPE  objects  This  technique  is  a standard  way  of 
providing  modularity  and  abstraction. 

For  example,  suppose  you  wanted  to  deal  with  airline  schedules.  If  you  were  to  construct  a set  of 
programs  that  define  and  manipulate  a NEWTYPE  called  FLIGHT,  then  you  could  make  that  set  into  a 
standard  package  of  programs  and  call  on  it  to  handle  all  information  pertaining  to  scheduled 
airline  flights.  Since  all  FLIGHTS  would  have  the  same  quantity  of  information  (more  or  less)  and 
you  would  want  quick  access  to  individual  elements,  you  would  not  want  the  TYPEPRIM  to  be  LIST. 
Since  the  elements  would  be  of  various  TYPES,  you  would  not  want  the  TYPEPRIM  to  be  UVECTOR  ~ 
nor  its  variations  STRING  or  BYTES.  The  natural  choice  would  be  a TYPEPRIM  of  VECTOR  (although 
you  could  gain  space  and  lose  time  with  TEMPLATE  instead). 

Now.  the  individual  elements  of  a FLIGHT  would,  no  doubt,  have  TYPEs  and  meanings  that  don't 
change.  The  elements  of  a FLIGI1  might  be  airline  code,  flight  number,  originating-airport  code, 
list  of  intermediate  stops,  destiuati  n-airport  code,  type  of  aircraft,  days  of  operation,  etc.  Each  and 
every  FLIGHT  would  have  the  airline  code  for  its  first  element  (say),  the  flight  number  for  its  second, 
and  so  on.  It  is  natural  to  invent  names  (ATOMs)  for  these  elements  and  always  refer  to  the  elements 
by  name.  For  example,  you  could  <SETG  AIRLINE  1>  or  <SETG  AIRLINE  < OFFSET  1 FLIGHT»  - 
and  in  either  case  <MANIFEST  AIRLINE)  so  the  compiler  can  generate  more  efficient  code.  Then,  if 
the  local  value  of  F were  a FLIGHT,  <AIRLINE  .F>  would  return  the  airline  code,  and  <AIRLINE  .F 
AA>  would  set  the  airline  code  to  AA.  Once  that  is  done,  you  can  forget  about  which  element  comes 
first:  all  you  need  to  know  are  the  names  of  the  offsets. 

The  next  step  is  to  notice  that,  outside  the  package  of  FLIGHT  functions,  no  one  needs  to  know 
whether  AIRLINE  is  just  an  offset  or  in  fact  a function  of  some  kind.  For  example,  the  scheduled 
duration  of  a flight  might  not  be  explicitly  stored  in  a FLIGHT,  just  the  scheduled  times  of 
departure  and  arrival.  But.  if  the  package  had  the  proper  DURATION  function  for  calculating  the 
duration,  then  the  call  <DURATION  ,F>  could  return  the  duration,  no  matter  how  it  is  found.  In  this 
way  the  internal  details  of  the  package  are  conveniently  hidden  from  view  and  abstracted  away. 

The  form  of  NEWTYPE  definition  allows  for  the  TYPEs  of  all  components  of  a NEWTYPE  to  be  declared 
(chapter  MI.  for  use  both  by  a programmer  while  debugging  programs  that  use  the  NEWTYPE  and  by 
the  compiler  for  generating  faster  code.  It  is  very  convenient  to  have  the  type  declaration  in  the 
NEWTYPE  definition  itself,  rather  than  replicating  it  everywhere  the  NEWTYPE  is  used.  (If  you  think 
this  declaration  might  be  obtrusive  while  debugging  the  programs  in  the  NEWTYPE  package,  when 
inconsistent  improvements  are  being  made  to  various  programs,  you  can  either  disassociate  any 
declaration  from  the  NEWTYPE  or  turn  off  MDL  type-checking  completely.  Actually  this  declaration 
is  typically  more  useful  to  a programmer  during  development  than  it  is  to  the  compiler.) 

< NEWTYPE  atom  type> 
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returns  atom.  after  causing  it  to  become  the  representation  of  a brand-new  TYPE  whose  PRIMTYPE  is 
<TYPEPRIM  typr>.  What  NEWTYPE  actually  does  is  make  atom  a legal  argument  to  CHTYPE  and 
TYPEPR1H.  (Note  that  names  of  new  TYPE s can  be  blocked  lexically  to  prevent  collision  with  other 
names,  just  like  any  other  ATOMs  - chapter  15.)  Objects  of  a NEWTYPE-created  TYPE  can  be  generated 
by  creating  an  object  of  the  appropriate  PRIMTYPE  and  using  CHTYPE.  They  will  be  PRINTed 
(initially),  and  can  be  directly  typed  in.  by  the  use  of  "#  notation"  as  described  above.  EVAL  of  any 
object  whose  TYPE  was  created  by  NEWTYPE  is  initially  the  object  itself,  and,  initially,  you  cannot 
APPLY  something  of  a generated  TYPE  to  arguments.  But  see  below. 

Examples: 


< NEWTYPE  GARGLC  FIX>$ 
GARGLE 

<TYPEPRIM  GARGLE >$ 

WORD 

<SET  A <CIITYPE  1 GARGLE»S 
#GARGLt  *000000000001* 

<SET  B # GARGLE  100>S 
* GARGLE  *000000000144* 
<TYPE  .B>S 
GARGLE 

<PRIMTYPE  .B>S 
WORD 


6.4.4.  PRINTTYPE,  EVALTYPE  and  APPLYTYPE 
< PR  I NT  TYPE  type  how> 

< EVALTYPE  type  how> 

< APPLYTYPE  type  how> 

all  return  type,  after  specifying  how  MDL  is  to  deal  with  it. 

These  three  SUBRs  can  be  used  to  make  newly-generated  TYPEs  behave  in  arbitrary  ways,  or  to 
change  the  characteristics  of  standard  MDL  TYPEs.  PRINTTYPE  tells  MDL  how  to  print  type. 
EVALTYPE  how  to  evaluate  it.  and  APPLYTYPE  how  to  apply  it  in  a FORM. 

how  can  be  either  a TYPE  or  something  that  can  be  applied  to  arguments. 

If  how  is  a TYPE,  MDL  will  treat  type  just  like  the  TYPE  given  as  how.  how  must  have  the  same 
TYPEPRIM  as  type. 

If  how  is  applicable,  it  will  be  used  in  the  following  way: 
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For  PR1NTTYPE,  how  should  take  one  argument:  the  object  being  output,  how  should  output 
something  without  formatting  ( PR  IN  1-style);  its  result  is  ignored.  (Note:  how  cannot  use  an  output 
SUBR  on  how's  own  t\pe:  endless  recursion  will  result.  OUTCHAN  is  bound  during  the  application  to 
the  CHANNEL  in  use.  or  to  a pseudo-internal  channel  for  FLATSIZE  --  chapter  11.)  If  how  is  the  SUBR 
PRINT,  type  will  receive  no  special  treatment  in  printing,  that  is,  it  will  be  printed  as  it  was  in  an 
initial  MDL  or  immediately  after  its  defining  NEWTYPE. 

For  EVALTYPF.,  how  should  take  one  argument:  the  object  being  evaluated.  The  value  returned  by 
how  will  be  used  as  EVAL  of  the  object.  If  how  is  the  SUBR  EVAL,  type  will  receive  no  special 
treatment  in  evaluation. 


For  APPLYTYPE,  how  should  take  at  least  one  argument.  The  first  argument  will  be  the  object  being 
applied:  the  rest  will  be  the  objects  it  was  given  as  arguments.  The  result  returned  by  how  will  be 
used  as  the  result  of  the  application.  If  how  is  the  SUBR  APPLY,  type  will  receive  no  special 
treatment  in  application  to  arguments. 


If  any  of  these  SUBRs  is  given  only  one  argument,  that  is  if  how  is  omitted,  it  returns  the  currently 
active  how  (a  TYPE  or  an  applicable  object),  or  else  #FALSE  ()  if  type  is  receiving  no  special 
treatment  in  that  operation. 


Unfortunately,  these  examples  are  fully  understandable  only  after  you  have  read  through  chapter  11. 


< DEFINE  ROMAN -PRINT  (NUMB) 

<COND  (COR  <L=?  .NUMB  0>  <G?  .NUMB  3999» 

CPRINC  CCHTYPE  .NUMB  TIME») 

(T 

CRCPR1NT  </  .NUMB  1000>  '![!\M]> 

CRCPRINT  </  .NUMB  100>  '![!\C  !\D  !\M]> 

CRCPRINT  </  .NUMB  10>  '![!\X  !\L  !\C]> 

CRCPRINT  .NUMB  '![!\I  !\V  !\X]>)»S 

ROMAN-PRINT 


CDEriNE  RCPRINT  (MOON  V) 
CSET  MOON  CMOO  .MOON  10» 
CCOND  (C  = =?  0 .MODIO) 


(<==? 

1 

.MODIO 

CPRINC 

C) 

.V») 

(Css? 

2 

,MOON> 

CPRINC 

<1 

.V»  CPRINC 

Cl  .V») 

(Css? 

3 

.M0DN> 

CPRINC 

<1 

.V»  CPRINC 

Cl  .V»  CPRINC 

Cl  ,V») 

(Css? 

4 

.M0DN> 

CPRINC 

<1 

.V»  CPRINC 

C2  .V») 

(Css? 

5 

.M0DN> 

CPRINC 

C2 

.V») 

(Css? 

6 

.M0DN> 

CPRINC 

C2 

.V»  CPRINC 

Cl  .V») 

(Css? 

7 

.MODN> 

CPRINC 

<2 

.V»  CPRINC 

Cl  .V»  CPRINC 

Cl  .V») 

(Css? 

8 

.MODIO 

CPRINC  C2  .V>> 
CPRINC  Cl  .V» 


6.4.4 


Data  Types 


50 


The  MDL  Programming  Language 


< PRINC  <1  .V>> 

< PR  INC  <1  .V») 

(<  = = ? 9 .MOON)  < PRINC  <1  .V»  <PRINC  <3  .V»)»S 
RCPRINT 

<PR1NT1YPE  TIME  FIX)  ;'fairly  harmless  but  necessary  here'S 
TIME 

<PRINTTYPE  FIX  .ROMAN-PRINT)  ;'hee  heel'S 

nx 

<♦  2 2>S 

IV 

1984S 
MCMLXXX1V 

<PRINITYPE  FIX  ,PRINT)S 
FIX 

<NEWTYPE  GRITCH  LIST)  ;'a  new  TYPE  of  PRIMTYPE  LIST'S 
GRIT CM 

<EVALTYPE  GRITCM)S 
iTALSE  () 

<FVALTYPE  GRIICH  LIST)  devaluated  like  a LIST'S 
GRITCH 

<EVALTYPE  GRITCH)S 
LIST 

'GRITCH  (A  <♦  1 2 3)  !<SET  A 'ABC'))  ;'Type  In  one.'S 
'GRITCH  (A  6 !\A  !\B  !\C) 

<NEWTYPE  HARRY  VECTOR)  ;'a  new  TYPE  of  PRIMTYPE  VECTOR'S 
HARRY 

<EVALTYPE  HARRY  #FUNCTION  ((X)  <1  .X>)> 

;"When  a HARRY  Is  EVALed.  return  Its  first  element. "S 
HARRY 

* HARRY  [ 1 2 3 4]S 
1 

<NEWTYPE  WINNER  LIST)  ;'a  TYPE  with  funny  application's 
WINNER 

<APPLYTYPE  W1NNER)S 
'FALSE  () 

<APPLYTYPE  WINNER  <FUNCTION  (W  'TUPLE'  T)  ( ! .V  !.T)»S 
WINNER 

<APPLYTYPE  WINNER)S 
'FUNCTION  ( (W  'TUPLE'  T)  (!.W  t.T)) 

< 'WINNER  (A  B C)  <♦  1 2)  q)S 
(A  B C 3 q) 
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The  following  sequence  makes  MDL  look  just  like  Lisp.  iDiis  example  is  understandable  only  if 
you  know  Lisp  (Moon.  1974);  it  is  included  only  because  it  is  so  beautiful.) 

<EVALTYPE  LIST  FORM>S 
LIST 

<EVALTYPE  ATOM  ,LVAL>S 
ATOM 

So  now: 

(♦  1 2)S 
3 

(SET  'A  5)S 
5 

AS 

5 

To  complete  the  job.  of  course,  we  would  have  to  do  some  SETG’s:  car  is  1,  edr  is  .REST,  and 
lambda  is  .FUNCTION.  If  you  really  do  this  example,  you  should  "undo*  it  before  continuing: 

<EVALTYPE  'ATOM  ,EVAL>S 
ATOM 

<EVALTYPE  LIST  ,EVAL>S 
LIST 


1 

1 
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Chapter  7.  Structured  Objects 

This  chapter  discusses  structured  objects  in  general  and  the  five  basic  structured  PRIMTYPEs.  [We 
defer  detailed  discussion  of  the  structured  PRIMTYPEs  TUPLE  (section  9.2)  and  STORAGE  (section 
22.2.2).] 


7.1.  Manipulation 

The  following  SUBRs  operate  uniformly  on  all  structured  objects  and  generate  an  error  if  not 
applied  to  a structured  object.  Hereafter,  structured  represents  a structured  object. 

7.1.1.  LENGTH  [I] 

< LENGTH  structuredy 

evaluates  to  the  number  of  elements  in  structured. 

7.1.2.  NTH  [I] 

<NTH  structured  fix> 

evaluates  to  the  f/xtli  element  of  structured.  An  error  occurs  if  fix  is  less  than  1 or  greater  than 
< LENGTH  structuredy . fix  is  optional.  1 by  default 

7.1.9.  REST  [I] 

<REST  structured  fixy 

evaluates  to  structured  without  its  first  fix  elements,  fix  is  optionaL  1 by  default. 

Obscure  but  important  side  effect:  REST  actually  returns  structured  "CHTYPEd"  (but  not  through 
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application  of  CHTYPE)  to  its  PRIMTYPE . For  example.  REST  of  a FORM  is  a LIST.  REST  with  an 
explicit  second  argument  of  0 has  no  effect  except  for  this  TYPE  change. 


7.1.4.  PUT  [I] 

<PUT  structured  fix  anythmg-legal> 

first  makes  anything-tegal  the  f/vth  element  of  structured,  then  evaluates  to  structured,  anything-legel 
is  anything  which  can  legally  be  an  element  of  structured",  often,  this  is  synonymous  with  “any  MDL 
object",  but  see  below.  An  error  occurs  if  fix  is  less  than  1 or  greater  than  <LENGTH  structured >. 
(PUT  is  actually  more  general  than  this  - chapter  IS.) 


7.1.5.  GET 


<GET  structured  fix > 

evaluates  the  same  as  <NTH  structured  fix>.  It  is  more  general  than  NTH,  however  (chapter  IS),  and 
is  included  here  only  for  symmetry  with  PUT. 


7.1.6.  APPlYing  a FIX  [I] 

EVAL  understands  the  application  of  an  object  of  TYPE  FIX  as  a “shorthand*  call  to  NTH  or  PUT, 
depending  on  whether  it  is  given  one  or  two  arguments,  respectively  [unless  the  APPLYTYPE  of  FIX  is 
changed]  That  is,  TVA1  considers  the  following  two  to  be  identical: 

< fix  structured > 

<NTH  structured  fix > 


and  these: 

<fix  structured  object > 

<PUT  structured  fix  object > 

[However,  the  compiler  (Lebling.  1979)  cannot  generate  efficient  code  front  the  longer  forms  unless 
it  is  sure  that  fix  is  a FIX  (section  9.10).  The  two  constructs  are  not  identical  even  to  EVAL,  if  the 
order  of  evaluation  is  significant:  for  example,  these  two: 

<NTH  .X  <LENGTH  <SET  X .Y»>  «LENGTH  <SET  X ,Y»  .X> 

are  not  identical.] 
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7.1.7.  SUBSTRUC 

SUBS  I R lie  ('substructure')  facilitates  the  construction  of  structures  that  are  composed  of  sub-parts  of 
existing  structures.  A special  case  of  this  would  be  a 'substring*  function. 

<SUBSTRUC  from:structured  restrfix  Amount  .fix  toxtrudured > 

copies  the  first  jr.iount  elements  of  <REST  from  rest > into  another  object  and  returns  the  latter.  All 
arguments  are  optional  except  from,  which  must  be  of  PRIMTYPE  LIST,  VECTOR,  TUPLE  (treated  like 
a VECTOR),  SIRING,  RYTTS,  or  UVICIOR.  rest  is  0 by  default,  and  amount  is  all  the  elements  by 
default,  to,  if  given,  receives  the  copied  elements,  starting  at  its  beginning;  it  must  be  an  object 
whose  1 YPF  is  the  PRIMTYPE  of  from  (a  VECTOR  if  from  is  a TUPLE).  If  to  is  not  given,  a new  object  is 
returned,  of  TYPE  < PRIMTYPE  from>  (a  VECTOR  if  from  is  a TUPLE),  which  never  shares  with  from. 
The  copying  is  done  in  one  fell  swoop,  not  an  element  at  a time.  Note:  due  to  an  implementation 
restriction,  if  from  is  of  PRIMTYPE  LIST,  it  must  not  share  any  elements  with  to. 


7.2.  Representation  of  Basic  Structures 
7.2.1.  LIST  [I] 

( element- 1 etcment-2  ...  etement-N  ) 
represents  a LIST  of  A/ elements. 


7.2.2.  VECTOR  [I] 

[ clen>cnt-I  element -2  ...  etement-N  ] 

represents  a vrCTOR  of  N elements.  (A  TUPLE  is  just  like  a VECTOR,  but  it  lives  on  the  control  stack.] 
7.2.1  UVECTOR  [I] 

If  clcn>cnt-I  element-2  ...  element-N  !] 

represents  a UVICTOR  (uniform  vector)  of  N elements.  The  second  I (exclamation-point)  is  optional 
for  input.  (A  STORAGE  is  an  archaic,  kind  of  UVECTOR  that  is  not  garbage-collected.] 


; 


I] 

w 
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7.2.4.  STRING  [I] 

"characters” 

represents  a STRING  of  ASCII  text.  A STRING  containing  the  character  ■ (double-quote)  is 
represented  by  placing  a \ (backslash)  before  the  double-quote  inside  the  STRING.  A \ in  a STRING 
is  represented  by  two  consecutive  backslashes. 


7.2.5.  BYTES 

in  {element- 1 element-2 element-N] 

represents  a string  of  N uniformly-sized  bytes  of  size  n bits. 


7.2.6.  TEMPLA1E 

{ element- 1 element-2  ...  element-N  ) 

represents  a TEMPLATE  of  N elements  when  output,  not  input  - when  input,  a # and  a TYPE  must 
precede  it. 


7,3.  Evaluation  of  Basic  Structures  [I] 

This  section  and  the  next  two  describe  how  EVAL  treats  the  basic  structured  TYPES  [in  the  absence  of 
any  modifying  EVALTYPE  calls  (section  6.4.4)). 

EVAL  of  a STRING  [or  BYTES  or  TEMPLATE)  is  just  the  original  object. 

EVAL  acts  exactly  the  same  with  LISTs,  VECTORS,  and  UVECTORs:  it  generates  a new  object  with 
elements  equal  to  EVAL  of  the  elements  it  is  given.  This  is  one  of  the  simplest  means  of 
constructing  a structure.  However,  see  section  7.7. 


7.4.  Examples  [I] 


(1  2 <♦  3 4>)S 
(1  2 7) 

<SET  F00  [5  <-  3>  <TYPE  "ABC">]>$ 
[5  -3  STRING] 

<2  .F00>$ 


7.2.4  - 7.4 


Structured  Objects 


56 


The  MDL  Programming  Language 


-3 

<TYPE  <3  . FOO»J 
ATOM 

<SET  BAR  ! [ ( "meoW ) (.FOO)]>S 
! [ ( "meow" ) ([5-3  STRING])!] 

< LENGTH  .BAR>S 

2 

<REST  <1  <?  . BAR >»$ 

[-3  STRING] 

[ <5UBSTRUC  <1  <2  .BAR»  0 2>] S 
t[5  -31] 

< PUT  .FOO  1 SNEAKY)  ; ‘Watch  out  for  .BAR  !*S 

[SNEAKY  -3  STRING] 

.BARS 

'[("meow")  ([SNEAKY  -3  STRING])!] 

<SET  FOO  <REST  <1  <1  .BAR»  Z»S 
"ow" 

.BARS 

! [ ( "meow"  ) ([SNEAKY  -3  STRING])!] 


7,5.  General  ion  of  Basic  Structures 

Since  LISTs.  VECTORS.  UVECTORs,  and  STRINGS  [and  BYTESes]  are  all  generated  in  a fairly  uniform 
manner,  methods  of  generating  them  will  be  covered  together  here.  [TEMPLATES  cannot  be  generated 
by  the  interpreter  itself;  see  I eh  ling  (1979).] 


7.5.1.  Direct  Representation  [I] 

Since  EVAL  of  a LIST,  VECTOR,  or  UVECTOR  is  a new  LIST,  VECTOR,  or  UVECTOR  with  elements  which 
are  EVAL  of  the  original  elements,  simply  evaluating  a representation  of  the  object  you  want  will 
generate  it.  (Care  must  he  taken  when  representing  a UVECTOR  that  all  elements  have  the  same 
TYPE.)  This  method  of  generation  was  exclusively  used  in  the  examples  of  section  7.4.  Note  that 
new  STRINGS  [and  BYTFSes]  will  not  be  generated  in  this  manner,  since  the  contents  of  a STRING  are 
not  interpreted  or  copied  by  CVAL.  The  same  is  true  of  any  other  TYPE  whose  TYPEPRIM  happens  to 
be  LIST,  VICTOR,  or  UVECTOR  [again,  assuming  it  neither  has  been  EVALTYPEd  nor  has  a built-in 
EVALTYPE,  as  do  f ORM  and  SEGMENT]. 


7.5.2.  QUOTE  [I] 

QUOTE  is  an  FSUBR  of  one  argument  which  returns  its  argument  unevaluated.  READ  and  PRINT 
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understand  the  character  ' (single-quote)  as  an  abbreviation  for  a call  to  QUOTE,  the  way  period  and 
comma  work  for  tVAL  and  GVAL.  Examples: 

<♦  1 2>S 
3 

•<♦  1 2>S 
<♦  1 2> 

Any  LIST,  vrCTOR,  or  UVECTOR  in  a program  that  is  constant  and  need  not  have  its  elements 
evaluated  should  he  represented  directly  and  inside  a call  to  QUOTE.  This  technique  prevents  the 
structure  from  being  copied  each  time  that  portion  of  the  program  is  executed.  Examples  hereafter 
will  adhere  to  this  dictum.  (Note:  one  should  never  modify  a QUOTEd  object.  The  compiler  will  one 
day  put  it  in  read-only  (pure)  storage.) 


7.5.3.  LIST,  VECTOR.  UVECTOR,  and  STRING  (the  SUBRs)  [I] 

Each  of  the  SUBRs  LIST,  VECTOR,  UVECTOR,  and  STRING  takes  any  number  of  arguments  and 
returns  an  object  of  the  appropriate  TYPE  whose  elements  are  EVAL  of  its  arguments.  There  are 
limitations  on  what  the  arguments  to  UVECTOR  and  STRING  may  EVAL  to,  due  to  the  nature  of  the 
objects  generated.  See  sections  7.6.5  and  7.6.6. 

LIST,  VECTOR,  and  UVECTOR  are  generally  used  only  in  special  cases,  since  Direct  Representation 
usually  produces  exactly  the  same  effect  (in  the  absence  of  errors),  and  the  intention  is  more 
apparent.  [Note:  if  .1  is  a LIST,  <LIST  ! .L>  makes  a copy  of  .L  whereas  (!  ,L)  doesn't;  see  section 
7.7.]  STRING,  on  the  other  hand,  produces  effects  very  different  from  literal  STRINGS. 

Examples: 

<LIST  1 <♦  2 3>  ABOS 
(1  5 ABC) 

(1  <♦  2 3>  ABC )S 
(I  b ABC) 

<STR IMG  "A"  <2  "QWERTY  <RE5T  "ABC>  ■hello»>5 
"AWBChcl lo" 

"A  <♦  2 3>  ( 5)"S 
"A  <♦  2 3>  (5)* 


7.5.4.  ILIST,  IVECTOR,  IUVECTOR,  and  ISTRING  [I] 

Each  of  the  SUBRs  ILIST,  IVECTOR,  IUVECTOR,  and  ISTRING  ("implicit"  or  "iterated"  whatever) 
creates  and  returns  an  object  of  thr  obvious  TYPE.  The  format  of  an  application  of  any  of  them  la 

< /thing  numlicr-o(-element$;(ix  expression:tny  > 
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where  l thine  js  one  of  ILIST.  IVECTOR.  IUVECTOR,  or  ISTRING.  An  object  of  LENGTH  number-of- 
etements  is  generated,  whose  elements  are  EVAL  of  expression. 

expression  is  optional.  When  it  is  not  specified,  ILIST,  IVECTOR,  and  IUVECTOR  return  objects 
filled  with  objects  of  TYPE  LOSE  ( PRIMTYPE  WORD)  as  place  holders,  a TYPE  which  can  be  passed 
around  and  have  its  TYPE  checked,  but  otherwise  is  an  illegal  argument.  If  expression  is  not 
specified  in  ISTRING,  you  get  a STRING  made  up  of  *8  characters. 

When  expression  is  supplied  as  an  argument,  it  is  re-EVALuated  each  time  a new  element  is 
generated.  (Actually.  EVAL  of  expression  is  re-EVALuated.  since  all  of  these  are  SUBRs.)  See  the  last 
example  for  how  this  argument  may  be  used. 

[Ry  the  way.  in  a construct  like  CIUVECTOR  9 '.X>,  even  if  the  LVAL  of  X evaluates  to  itself,  so  that 
the  ' could  be  omitted  without  changing  the  result,  the  compiler  is  much  happier  with  the  * in 
place.] 

IUVECTOR  and  IS1R1NG  again  have  limitations  on  what  expression  may  EVAL  to;  again,  see  sections 
7.6.5  and  7.G.G. 

Examples: 

<ILIST  5 OS 
(66666) 

< IVECTOR  2>S 

[*L0SF  *000000000000*  #L0SE  *000000000000*] 

<SET  A 0>S 
0 

< IUVECTOR  9 ' <SET  A <♦  .A  1»>S 
‘[123456789!] 


7.5.5.  FORM  and  I FORM 

Sometimes  the  need  arises  to  create  a TORM  without  EVALing  it  or  making  it  the  body  of  a FUNCTION. 
In  such  cases  the  MlURs  TORM  and  IFORM  (‘implicit  form")  can  be  used  (or  QUOTE  can  be  used).  They 
are  entirely  analogous  to  1 1ST  and  ILIST.  Example: 

<DEF INE  INC-FORM  (A) 

<FORM  SET  .A  <FORM  ♦ 1 <F0RM  LVAL  .A»»S 

INC-FORM 
< INC-FORM  FOO>S 
<SET  FOO  <♦  1 .F00» 
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7,6.  Unique  Properties  of  Primitive  TYPEs 

7.6.1.  LIST  (the  PRIMTYPE)  [I] 

An  ob  ject  of  PRIM1YPE  LIST  may  be  considered  as  a "pointer  chain"  (appendix  1).  Any  MDL  object 
may  be  an  element  of  a PRIMTYPE  LIST.  It  is  easy  to  add  and  remove  elements  of  a PRIMTYPE 
LIST,  but  (lie  higher  N is,  the  longer  it  takes  to  refer  to  the  Nth  element.  The  SUBRs  which  work 
only  on  objects  of  PRIMTYPE  LIST  are  these: 

7.6.1. 1.  PUTREST  [I] 

<PUTREST  head:primtype-list  tail:primtype-list > 

changes  he.-d  so  that  CREST  h ead>  is  tail  (actually  CCHTYPE  tail  LIST»,  then  evaluates  to  head.  Note 
that  this  actually  changes  head,  it  also  changes  anything  having  head  as  an  element  or  a value.  For 
example: 


<SE1  now  [ <5ET  ARF  (B  W)>]>S 


t (B  W)  3 

CPUTREST  .ARF  • (3  4)>S 
(B  3 4) 

.BOWS 
[ (B  3 4)] 


PUTREST  is  probably  most  often  used  to  splice  lists  together.  For  example,  given  that  .L  is  of 
PRIMTYPE  LIST,  to  leave  the  first  m elements  of  it  intact  and  take  out  the  next  n elements  of  it, 
< PUTREST  CREST  .L  C-  m 1»  CREST  .L  C*  m n>».  Specifically, 

CSET  NUMS  ( 1 2 3 4 5 6 7 8 9)>S 
( 1 2 3 4 5 6 7 8 9) 

C PU1  REST  CREST  .NUMS  3>  CREST  .NUMS  7»S 
(4  8 9) 

.NUMSS 

(123489) 

7.6.I.2.  CONS 

CCONS  new  Hst> 


("construct")  adds  new  to  the  front  of  list,  without  copying  ':st,  and  returns  the  resulting  LIST. 
References  to  list  are  not  affected. 

[Evaluating  CCONS  .E  ,LIST>  is  equivalent  to  evaluating  (.E  '.LIST)  (section  7.7)  but  is  less 
preferable  to  the  compiler  (Lebling,  1979).] 
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7.6.2.  “Array"  PRIMTYPEs  [I] 

VECTORS,  UVrCTORs,  and  STRINGS  [and  BYTESes  and  TEMPLATES]  may  be  considered  as  "arrays" 
(appendix  i).  It  is  easy  to  refer  to  the  Nth  element  irrespective  of  how  large  N is,  and  it  is 
relatively  difficult  to  add  and  delete  elements.  The  following  SUBRs  can  be  used  only  with  an  object 
of  PRIMTYPE  VECTOR,  UVECTOR,  or  STRING  [or  BYTES  or  TEMPLATE].  (In  this  section  array  represents 
an  object  of  such  a PRIMTYPE.) 

7.6.2. 1 . BACK  [I] 

<BACK  array  fix') 

This  is  the  opposite  of  REST.  It  evaluates  to  array,  with  fix  elements  put  back  onto  its  front  end, 
and  changed  to  its  PRIMTYPE.  fix  is  optional,  1 by  default.  If  fix  is  greater  than  the  number  of 
elements  which  have  been  RESTcd  off,  an  error  occurs.  Example: 

<SET  ZOP  <REST  • ! [ 1 2 3 4]  3»$ 

![4!] 

<BACK  .ZOP  2>S 
![2  3 4!] 

<SET  S <REST  "Right  is  might."  IS)>S 

« « 

<BACK  .S  6>S 
■might." 

7.6-2.2.  TOP  [I] 

<TOP  array > 

"BACKs  up  all  the  way”  --  that  is,  evaluates  to  array,  with  all  the  elements  which  have  been  RESTed 
off  put  back  onto  it.  and  changed  to  its  PRIMTYPE.  Example: 

< TOP  .ZOP>S 
![1  2 3 4!] 


7.6.1  “Vector"  PRIMTYPEs 
7.6.3. 1.  GROW 

<GR0W  vu  endifix  beg.ftx) 

adds/removes  elements  to/from  either  or  both  ends  of  vu,  and  returns  the  entire  (TOPped)  resultant 
°*>ject.  vu  can  be  of  PRIMTYPE  VECTOR  or  UVECTOR.  end  specifies  a lower  bound  for  the  number  of 
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elements  to  he  added  to  the  end  of  via  beg  specifies  the  same  for  the  beginning.  A negative  fix 
specifies  removal  of  elements. 


The  number  of  elements  added  to  each  respective  end  is  end  or  beg  increased  to  an  integral  multiple 
of  X.  where  X is  32  for  PRIMTYPE  VECTOR  and  64  for  PRIMTYPE  UVECTOR  (1  produces  32  or  64:  -1 
produces  0)  The  elements  added  will  he  LOSEs  if  vu  is  of  PRIHTYPE  VECTOR,  and  "empty"  whatever- 
they-are’s  if  vv  is  of  PRIMTYPE  UVECTOR.  An  "empty"  object  of  PRIMTYPE  WORD  contains  zero.  An 
empty  object  of  any  other  PRIMTYPE  has  zero  in  its  "value  word’  (appendix  1)  and  is  not  safe  to 
play  with:  it  should  be  replaced  via  PUT. 

Note  that,  if  elements  are  added  to  the  beginning  of  vu,  previously-existing  references  to  vu  will 
have  to  use  TOP  or  BACK  to  gel  at  the  added  elements. 

Caution:  GROW  is  a very  expensive  operation;  it  requires  a garbage  collection  (section  22.4)  every 
time  it  is  used.  It  should  he  reserved  for  very  special  circumstances,  such  as  where  the  pattern  of 
shared  elements  is  terribly  important. 

Example: 

<SET  A • ! [ 1 ]>S 
?[1!) 

< GROW  .A  0 1>J 

![0  00000000000000000000 
0000000000000000000000 
000000000000000000000  1!] 

• AS 
'[1!] 

7.6.3  2.  SORT 

This  SUBR  will  sort  PRIMTYPEs  VECTOR.  UVECTOR  and  TUPLE  (section  9.2).  It  works  most 
efficiently  if  the  sort  keys  are  of  PRIMTYPE  WORD,  ATOM  or  STRING.  However,  the  keys  may  be  of 
any  TYPE,  and  SORT  will  still  work.  SORT  acts  on  fixed-length  records  which  consist  of  one  or  more 
contiguous  elements  in  the  structure  being  sorted.  One  element  in  the  record  is  declared  to  be  the 
sort  key.  Also,  any  number  of  additional  structures  can  be  rearranged  based  on  how  the  main 
structure  is  sorted. 

<SORT  prod  si  II  off  s2  12  S3  13  ...  s/V  IN> 


where: 

pred  is  either  (see  chapter  8 for  information  about  predicates): 

(I)  TYPE  FALSE,  in  which  case  the  TYPEs  of  all  the  sort  keys  must  be  the  same;  they  must  be  of 
PRIMTYPE  WORD,  STRING  or  ATOM ; and  a radix-exchange  sort  is  used;  or 


! 


i 


' 
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(2)  something  applicable  to  two  sort  keys  which  returns  TYPE  FALSE  if  the  first  is  not  bigger 
than  the  second,  in  which  case  a shell  sort  is  used.  For  example  ,6?  sorts  numbers  in  ascending 
order.  , L’  in  descending  order  Note:  if  your  pred  is  buggy,  the  SORT  may  never  terminate. 

si  ..  . s/V  are  the  (PRIMTYPE)  VECTORS,  UVECTORs  or  TUPLES  being  sorted,  and  si  contains  the  sort 
keys! 

H ...  IN  are  (hr  corresponding  lengths  of  sort  records  (optional,  one  by  default);  and 
off  is  the  offset  front  start  of  record  to  sort  key  (optional,  rero  by  default). 

SORT  returns  the  sorted  si  as  a value. 

Note:  the  SUBR  SORT  calls  the  RSUBR  (chapter  19)  SORTX;  if  the  RSUBR  must  be  loaded,  you  may  see 
some  output  from  the  loader  on  your  terminal. 

Examples: 

<SORT  <>  <SET  A < IUVECTOR  500  '<RANOOM»»J 

»[...!) 

sorts  a UVFC10R  of  random  integers. 

<SET  V [1  MONEY  2 SHOW  3 READY  4 GO]>$ 

[...] 

<SORT  <>  .V  2 1>S 

[4  GO  1 MONEY  3 READY  2 SHOW] 

<SORT  .L?  .V  2>S 

[4  GO  3 RFADY  2 SHOW  1 MONEY] 

.VS 

[4  GO  3 READY  2 SHOW  1 MONEY] 

<SORT  <>  ![2  l 4 3 6 5 8 7]  1 0 .V>J 
![  1 2 3 4 5 6 7 8!] 

.Vi 

[GO  4 READY  3 SHOW  2 MONEY  1] 

The  first  sort  was  based  on  the  ATOMs’  PNAMEs.  considering  records  to  be  two  elements.  The  second 
one  sorted  based  on  the  FIXes.  The  third  interchanged  pairs  of  elements  of  each  of  its  structured 
arguments. 
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7.6.4.  VECTOR  (the  PRIMTYPE)  [I] 

Any  MDL  object  may  be  an  element  of  a PRIMTYPE  VECTOR.  A PRIMTYPE  VECTOR  takes  two  words 
of  storage  more  than  an  equivalent  PRIMTYPE  LIST,  but  takes  it  all  in  a contiguous  chunk,  whereas 
a PRIMTYPE  LIST  may  be  physically  spread  out  in  storage  (appendix  1).  There  are  no  SUBRs  or 
FSUBRs  which  operate  only  on  PRIMTYPE  VECTOR. 


7.6.5.  UVECTOR  (the  PRIMTYPE)  [I] 

The  difference  between  PRIMTYPEs  UVECTOR  and  VECTOR  is  that  every  element  of  a PRIMTYPE 
UVECTOR  must  be  of  the  same  TYPE.  A PRIMTYPE  UVECTOR  takes  approximately  half  the  storage  of 
a PRIMTYPE  VECTOR  or  PRIMTYPE  LIST  and,  like  a PRIMTYPE  VECTOR,  takes  it  in  a contiguous  chunk 
(appendix  I). 

[Note:  due  to  an  implementation  restriction  (appendix  1).  PRIMTYPE  STRINGS,  BYTESes,  LOCDs 
(chapter  12).  and  objects  on  the  control  stack  (chapter  22)  may  not  be  elements  of  PRIMTYPE 
UVECTORs.] 

The  "same  TYPE"  restriction  causes  an  equivalent  restriction  to  apply  to  EVAL  of  the  arguments  to 
either  of  the  SUBRs  UVECTOR  or  IUVECTOR.  Note  that  attempting  to  say 

• 1 1 A!] 

will  cause  READ  to  produce  an  error,  since  you’re  attempting  to  put  a FORM  and  a FIX  into  the  same 
UVECTOR.  On  the  other  hand. 

< UVECTOR  1 . A> 

is  legal,  and  will  EVAL  to  the  appropriate  UVECTOR  without  error  if  .A  EVALs  to  a TYPE  FIX. 

The  following  SUBRs  work  on  PRIMTYPE  UVECTORs  alone. 

7.6.5.I.  UTYPE  [I] 

<UTYPE  primtype-uvedor> 

("uniform  type")  evaluates  to  the  TYPE  of  every  element  in  its  argument  Example: 

<UTYPE  ’ ![ A B C]>S 
ATOM 
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7.6.5.2.  CHUIYPI.  [I] 

<CHUTYPE  uv:pnmtype~uvector  type > 

("change  uniform  type")  changes  the  UTYPE  of  uv  to  type,  simultaneously  changing  the  TYPE  of  all 
elements  of  uv.  and  returns  the  new.  changed,  uv.  This  works  only  when  the  PRIMTYPE  of  the 
elements  of  uv  can  remain  the  same  through  the  whole  procedure.  (Exception:  a uv  of  UTYPE  LOSE 
can  be  CIIUTYPfd  to  any  t)pe  (legal  in  a UVECTOR  of  course);  the  resulting  elements  are  “empty",  as 
for  GROW.) 

CHUTYPE  actually  changes  uv:  hence  a]|  references  to  that  object  will  reflect  the  change.  This  is 
quite  different  from  CUT YPE . 

Examples: 

<SET  LOST  < IUVECTOR  2»S 

'[•HOSE  *000000000000*  HOSE  *000000000000*!] 

<UTYPE  .LOST >5 
LOSE 

< CHUTYPE  .LOST  fORM>S 

'(<>  <>!] 

.LOST 

![<>  <>!] 

< CHUTYPE  .LOST  LIST>S 

![()  <)!] 


7.6.6.  STRING  (the  PRIM1YPE)  and  CHARACTER  [I] 

The  best  mental  image  of  a PRIMTYPE  STRING  is  a PRIMTYPE  UVECTOR  of  CHARACTERS  - where 
CHARACTER  is  the  MDL  TYPE  for  a single  ASCII  character.  The  representation  of  a CHARACTER,  by 
the  way.  is 

! \*ny-ASCll-that  ader 

That  is.  the  characters  ' \ (exclamation-point  backslash)  preceding  a single  ASCII  character 
represent  the  corresponding  object  of  TYPE  CHARACTER  (PRIMTYPE  WORD).  (The  characters  ! * 
(exclamation-point  double-quote)  preceding  a character  are  also  acceptable  for  inputting  a 
CHARACTER,  for  historical  reasons.) 

The  SUBR  ISTRING  will  produce  an  error  if  you  give  it  an  argument  that  produces  a non- 
CHARACTER.  STRING  can  take  either  CHARACTERS  or  STRIN6s. 

There  are  no  SURRs  which  uniquely  manipulate  PRIMTYPE  STRINGS,  but  some  are  particularly  useful 
in  connection  with  them: 


j 
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7.6.6. 1.  ASCII  [I] 

<ASCII  tis-or-character > 

If  its  argument  is  of  TYPE  FIX,  ASCII  evaluates  to  the  CHARACTER  with  the  7-bit  ASCII  code  of  its 
argument.  Example:  <ASCII  65)  evaluates  to  ! \A. 

If  its  argument  is  of  TYPE  CHARACTER,  ASCII  evaluates  to  the  FIXed-point  number  which  is  its 
argument's  7-bit  ASCII  code.  Example:  <ASCII  ! \Z>  evaluates  to  90. 

[Actually,  a F IX  can  be  CIITYPEd  to  a CHARACTER  (or  vice  versa)  directly,  but  ASCII  checks  in  the 
former  case  that  the  FIX  is  within  the  permissible  range.] 

7.66.2.  PARSE  [I] 

<PARSF  string  radixdixf 

PARSE  applies  to  its  argument  READ'S  algorithm  for  converting  ASCII  representations  to  MDL 
objects  and  returns  the  first  object  created.  The  remainder  of  string,  after  the  first  object 
represented,  is  ignored,  radix  (optional,  ten  by  default)  is  used  for  converting  any  FIXes  that  occur. 
[See  also  sections  15.7.2  and  17.1.3  for  additional  arguments.] 

7.6.6.3.  LPARSE  [I] 

LPARSE  ( list  parse  ) is  exactly  like  PARSE  (above),  except  that  it  parses  the  entire  string  and  returns  a 
LIST  of  all  objects  created.  If  given  an  empty  STRING  or  one  containing  only  separators,  LPARSE 
returns  an  empty  LIST,  whereas  PARSE  gets  an  error. 

7.6.6. 4.  UNPARSE  [I] 

<IINPARSE  am  radixdix) 

UNPARSE  applies  to  its  argument  PRINT’S  algorithm  for  converting  MDL  objects  to  ASCII 
representations  and  returns  a STRING  which  contains  the  CHARACTERS  PRINT  would  have  typed  out. 
[However,  this  STRING  will  not  contain  any  of  the  gratuitous  carriage-returns  PRINT  adds  to 
accommodate  a CHANNEL'S  finite  line-width  (section  11.2.8).]  radix  (optional,  ten  by  default)  is 
used  for  converting  any  FIXes  that  occur. 


7.6.7.  BYTES 

A ( PR  INTYPE ) BYTES  is  a string  of  uniformly-sized  bytes.  The  bytes  can  be  any  size  between  1 and 
36  bits  inclusive.  A BYTFS  is  similar  in  some  ways  to  a UVECTOR  of  FIXes  and  in  some  ways  to  a 
STRING  of  non-seven-bit  bytes.  The  elements  of  a BYTES  are  always  of  TYPE  FIX. 
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The  SlIBRs  BYTFS  ami  IBYTES  are  similar  to  STRING  and  ISTRING,  respectively,  except  that  each  of 
the  former  takes  a first  argument  giving  the  siie  of  the  bytes  in  the  generated  BYTES.  BYTES  take* 
one  required  argument  which  is  a TIX  specifying  a byte  size  and  any  number  of  PRIMTYPE  WORDs. 
It  returns  an  object  of  TYPE  BY1FS  with  that  byte  size  containing  the  objects  as  elements.  These 
objects  will  he  ANDBed  with  the  appropriate  mask  of  1-bits  to  fit  in  the  byte  size.  IBYTES  takes  two 
required  T IXes  and  one  optional  argument.  It  uses  the  first  FIX  to  specify  the  byte  size  and  the 
second  to  specify  the  number  of  elements.  The  third  argument  is  repeatedly  evaluated  to  generate 
FIXes  that  become  elements  of  the  BYTES  (if  it  is  omitted,  bytes  filled  with  zeros  are  generated).  The 
analog  to  UTYPf  is  BYIE-SIZE.  Examples: 

<BYTES  3 <♦  2 ?>  9 -1>J 
*3  (4  1 7) 

<SET  A 0>J 
0 

< IBYTES  3 9 '<SET  A <♦  .A  1»>S 
A3  (1  2 3 4 S 6 7 0 1) 

< IBYTES  3 4>S 
A3  (0  0 0 0) 

<BY1E-SIZE  <BYTES  1»S 
1 


7.6.8.  TEMPLATE 

A TEMPI  ATC  is  similar  to  a PL/I  "structure"  of  one  level:  the  elements  are  packed  together  and 
reduced  in  size  to  save  storage  space,  while  an  auxiliary  internal  data  structure  describes  the 
packing  format  and  the  elements'  real  TYPEs  (appendix  I).  The  interpreter  itself  is  not  able  to  create 
objects  of  PRIM1YPE  TEMPLATE  (Lebling.  1979):  however,  it  can  apply  the  standard  built-in 
Subroutines  to  them,  with  the  same  effects  as  with  other  "arrays". 


7.7.  SEGMENTS  [II 

Objects  of  TYPE  SI  GMI  NT  (whose  TYPEPRiM  is  LIST)  look  very  much  like  FORMs.  SEGMENTS,  however, 
undergo  a non-standard  evaluation  designed  to  ease  the  construction  of  structured  objects  from 
elements  of  other  structured  objects. 


7.7.1.  Representation  [|] 

Tire  representation  of  an  object  of  TYPE  SEGMENT  is  the  following: 

!<  tunc  ,*rg-2  ...  m$-N  !> 
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where  t lie  second  ! (exclamation-point)  is  optional,  and  func  and  arg-1  through  arg-N  are  any  legal 
constituents  of  a FORM  (that  is,  anything).  The  pointed  brackets  can  be  implicit,  as  in  the  period 
and  comma  notation  for  LVAL  and  GVAL. 

All  of  the  following  are  SEGMENTS: 

! <3  . F 00 > !.F00  ! ,F00 


7.7.2.  Evaluation  [I] 

A SEGMFNT  is  evaluated  in  exactly  the  same  manner  as  a FORM,  with  the  following  three  exceptions: 

(1)  It  had  better  he  done  inside  an  EVAL  of  a structure;  otherwise  an  error  occurs.  (See  special 

case  of  FORMs  in  section  7.7.5.) 

(2)  It  had  better  EVAL  to  a structured  object;  otherwise  an  error  occurs. 

(3)  What  actually  gets  inserted  into  the  structure  being  built  are  the  elements  of  the  structure 

returned  by  the  FORM-like  evaluation. 

7.7.3.  Examples  [I] 

<SET  ZOP  ' ![2  3 4 ]>l 
![2  3 4!  ] 

<SET  ARF  (B  3 4)>$ 

(B  3 4) 

(.ARF  !.Z0P)S 
((B  34)234) 

• [ ! .ZOP  !<REST  . ARF > ! ]S 
([23434!] 

<SET  S "STRUNG. ">S 
•STRUNG." 

(!S)S 

(!\S  !\T  !\R  !\U  !\N  !\G  !\.) 

<SET  NIL  ()>S 

() 

[! .NIL]S 

[] 
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7.7.4.  Note  on  Efficiency  [I] 

Most  of  the  cases  in  which  it  is  possible  to  use  SEGMENTS  require  EVAL  to  generate  an  entire  new 
object.  Naturally,  this  uses  up  both  storage  and  time.  However,  there  is  one  case  which  it  is 
possible  to  handle  without  copying,  and  EVAL  uses  it.  When  the  structure  being  built  is  a PRIMTYPE 
LIST,  and  the  segment  value  of  a PRIMTYPE  LIST  is  the  last  (rightmost)  element  being  concatenated, 
that  last  PRIMTYPE  LIST  is  not  copied.  This  case  is  similar  to  CONS  and  is  the  principle  reason  why 
PRIMTYPE  LISTs  have  their  structures  more  easily  varied  than  PRIMTYPE  VECTOR  or  UVECTOR. 

Examples: 

. ARFS 
(B  3 4) 

This  does  not  copy  ARF : 

(1  2 ! .ARE )* 

(1  2634) 

Time  doc 


(1 

! . 

ARF 

2) 

*-» 

o 

e 

• 

last  element"* 

(1 

B 

3 4 

2) 

[1 

2 

! .ART  ] 

;"not 

PRIMTYPE  LIST"* 

[1 

2 

R 3 

4] 

(1 

2 

\ .ARF  KREST 

'(!)>)  ;■ still  not  last  element** 

(1 

2 

B 3 

4) 

Note  the  following,  which  occurs  because  copying  does  not^take  place: 

<5ET  00G  (A  ! . ARF )>* 

(A  B 3 4) 

< PUT  .ARF  1 "BOWOW" >* 

("BOWOW"  3 4) 

.DOGS 

(A  "BOWOW"  3 4) 

<Pl)T  .DOG  3 "WOOF">* 

(A  "BOWOW"  "WOOF"  4) 

. ART  $ 

(“BOWOW"  "WOOF"  4) 


Since  ARF  was  not  copied,  it  was  literally  part  of  DOG.  Hence,  when  an  element  of  ARF  was  changed, 
DOG  seas  changed  Similarly,  when  an  element  of  DOG  which  ARF  shared  was  changed.  ARF  was 
changed  too. 
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7.7.5.  SEGMENI.s  in  i ORMs  [I] 

When  a SEGMENT  appears  as  an  element  of  a FORM,  the  effect  is  approximately  the  same  as  if  the 
elements  of  EVAl  of  the  SEGMENT  were  in  the  FORM.  Example: 

<SE T A ' ! [ 1 2 3 4 ]>i 
! [ 1 2 3 4 ! ] 

<♦  ' .A  5>J 
15 

Note:  the  elements  of  the  structure  segment-evaluated  in  a FORM  are  ntrt  re-evaluated  if  the  thing 
being  applied  is  a SlIITR.  Thus  if  .A  were  (1  Z <♦  3 4>  5),  the  above  example  would  produce  an 
error:  you  can't  arid  up  FORMs. 

You  could  perform  the  same  summation  of  5 and  the  elements  of  A by  using 
<EVAL  <CH1 YPE  (♦  ! .A  5)  F0RM» 

(Note  that  EVAL  must  be  explicitly  called  as  a SUBR;  if  it  were  not  so  called,  you  would  just  get  the 
FORM  <«•  1 2 3 4 5>  - not  its  "value".)  However,  the  latter  is  more  expensive  both  in  time  and  in 
storage:  when  you  use  the  SEGMENT  direct ly  in  the  FORM,  a new  FORM  is,  in  fact,  not  generated  as  it  is 
in  the  latter  case.  (The  elements  are  put  on  "the  control  stack"  with  the  other  arguments.) 


7.8.  Self-referencing  Structures 

It  is  possible  for  a structured  object  to  "contain"  itself,  cither  as  a subset  or  as  an  element,  as  an 
element  of  a structured  element,  etc.  Such  an  object  cannot  be  PRINTed,  because  recursion  begins 
and  never  terminates.  Warning:  if  you  try  the  examples  in  this  section  with  a live  MDL,  be  sure 
you  know  bow  to  use  AS  (section  1.2)  to  save  PRINT  from  endless  agony.  (Certain  constructs  with 
ATOMs  can  give  PRINT  similar  trouble:  see  chapters  12  and  15.) 

7.8.1.  Self-subset 

<PU1REST  hcad:pnmt ypc-list  tahprimt ype-ltst) 

If  head  is  a subset  of  tail.  that  is,  if  <REST  tail  (ix>  is  the  same  object  as  <REST  head  0>  for  some  fix, 
then  both  head  and  tail  will  he  "circular"  (and  thus  self-referencing)  after  the  PUTREST.  Example: 

<SET  WALTZ  (1  2 3)>i 
(l  2 3) 

< PUTREST  <REST  .WALTZ  2>  .WALTZ>1 
(3  1 2 3 1 2 3 1 2 3 1 2 3 ... 
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7.8.2.  Self-element 

<rur  si  structured  fix  s2:structured) 

If  si  is  i hr  same  object  as  s2.  then  it  will  "contain*  itself  (and  thus  be  self-referencing)  after  the 
PUT.  Examples: 

<SE  T S <1  1ST  1 2 3»  ;"or  VECTOR'S 

(1  2 3) 

< PUT  .S  3 ,S>S 
(1  2 (1  2 (1  2 (1  2 ... 

<SET  U ![ ![  ]]>$ 

?[•[!]*] 

< PUT  .U  1 .U>S 

![»[![![![![... 

Test  your  reaction  time  or  yonr  terminal's  bracket-maker.  Amaze  your  friends. 
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Chapter  8.  Truth 


8.1.  Truth  Values  [I] 

MDL  represents  "false"  with  an  object  of  a particular  TYPE:  TYPE  FALSE  (unsurprisingly).  TYPE 
FALSE  is  structured:  its  PRIMTYPE  is  LIST.  Thus,  you  can  give  reasons  or  excuses  by  making  them 
elements  of  a FALSE.  (Again,  EVALing  a FALSE  neither  copies  it  nor  EVALs  its  elements,  so  it  is  not 
necessary  to  QUOTE  a FALSE  appearing  in  a program.)  Objects  of  TYPE  FALSE  are  represented  in  "# 
notation": 


#FALSE  list-of-its-elemenls 
The  empty  FORM  evaluates  to  the  empty  FALSE: 

<>$ 

#FAI.SE  ( ) 

Anything  which  is  not  FALSE,  is,  reasonably  enough,  true.  In  this  document  the  "data  type"  false- 
or-any  in  metasyntactic  variables  means  that  the  only  significant  attribute  of  the  object  in  that 
context  is  whether  its  TYPE  is  FALSE  or  not. 


8.2.  Predicates  [1] 

There  are  numerous  MDL  F/SLIBRs  which  can  return  a FALSE  or  a true.  See  appendix  2 to  find 
them  all.  Most  return  cither  #FALSE  ()  or  the  ATOM  with  PNAME  T.  (The  latter  is  for  historical 
reasons,  namely  Lisp  (Moon.  1974).)  Some  predicates  which  are  meaningful  now  are  described  next. 


8.2.1.  Arithmetic  [I] 

<0?  fix-or- float> 

evaluates  to  T only  if  its  argument  is  identically  equal  to  0 or  0.0. 
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<1?  fix-or -floaty 

evaluates  to  T only  if  its  argument  is  identically  equal  to  1 or  1.0. 

<G?  n:fix-or-float  m:fix-or-float > 

evaluates  to  T only  if  n is  algebraically  greater  than  w.  L=?  is  the  Boolean  complement  of  G? ; that 
is.  it  is  T only  if  n is  not  algebraically  greater  than  m. 

<L?  n:fix-or-/loat  m-.fix-or-floaO 

evaluates  to  T only  if  n is  algebraically  less  than  m.  G=?  is  the  Boolean  complement  of  L?. 


8.2.2.  Equality  and  Membership  [I] 

<”?  el:any  e2:any> 

evaluates  to  T only  if  el  is  the  same  ob  ject  as  e2  (appendix  1).  Two  objects  that  look  the  same 
when  PRINTcd  may  not  be  ==?.  Two  FIXcs  of  the  same  "value"  are  "the  same  object";  so  are  two 
FLOATs  of  exactly  the  same  "value".  Empty  objects  of  PRIMTYPE  LIST  (and  no  other  structured 
PRIMTYPE)  are  ==?  if  their  TYPEs  are  the  same.  Example: 

< = =?  <SET  X "RANDOM  STRING")  <TOP  <REST  .X  6»>S 
T 

<==?  .X  "RANDOM  STRING" >J 
#FALSE  () 

N=a?  is  the  Boolean  complement  of  = = ?. 

< = ? e I .any  e2:any> 

evaluates  to  T if  el  and  e2  have  the  same  TYPE  and  are  structurally  equal  --  that  is,  they  "look  the 
same",  their  printed  representations  are  the  same.  =?  is  much  slower  than  ==?.  e?  should  be  used 
only  when  its  characteristics  are  necessary:  they  are  not  in  any  comparisons  of  unstructured  objects. 
==?  and  =?  always  return  the  same  value  for  Fixes,  FLOATs,  ATOMs,  etc.  (Mnemonically,  »=?  tests  for 
"more  equality"  than  =?;  in  fact,  it  tests  for  actual  physical  identity.) 

Example,  illustrating  non-copying  of  a SEGMENT  in  Direct  Representation  of  a LIST: 

<SET  A '(l  2 3)>S 
(1  2 3) 

< = = ? .A  ( • . A)>S 
T 

< = =?  .A  <SE T B < L I S T ! .A»>S 
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*FALSE  () 

<=?  .A  . B>$ 

T 

N=?  is  the  Boolran  complement  of  =?. 

<MEMBER  objcct.any  s tructured> 

runs  down  structured  from  first  to  last  element,  comparing  each  element  of  structured  with  object. 
If  it  finds  an  element  of  structured  which  is  =?  to  object,  it  returns  <REST  structured  />  (which  is  of 
TYPE  < PRIMTYPE  structurcd»,  where  the  0«l)th  element  of  structured  is  =?  to  object.  That  is,  the 
first  element  of  what  it  returns  is  the  first  clement  of  structured  that  is  =?  to  object. 

If  no  element  of  structured  is  =?  to  object.  MEMBER  returns  #FALSE  ( ) . 

The  search  is  more  efficient  if  structured  is  of  PRIMTYPE  VECTOR  (or  UVECTOR,  if  possible)  than  if  it 
is  of  PRIMTYPF  LIST.  As  usual,  if  structured  is  constant,  it  should  be  QUOTEd. 

If  object  and  structured  are  of  PRIMTYPE  STRING  [or  BYTES],  MEMBER  does  a substring  search. 
Example: 


<MEMBER  "PART"  "SUM  OF  PARTS">S 
"PARTS" 

<MEMQ  objrct :any  structured > ("member  quick")  is  exactly  the  same  as  MEMBER,  except  that  the 
comparison  test  is  ==?. 

<STRCOMP  si  s2> 

("string  comparison")  can  he  given  either  two  STRINGS  or  two  ATOMs  as  arguments.  In  the  latter  case 
the  PNAMCs  arc  used.  It  actually  isn’t  a predicate,  since  it  can  return  three  possible  values:  0 if  si  is 
= ? to  s2.  1 if  si  sorts  alphabetically  after  s2i  and  -1  if  si  sorts  alphabetically  before  s2. 
"Alphabetically"  means,  in  this  case,  according  to  the  numeric  order  of  ASCII,  with  the  standard 
alphabetizing  rules. 

[A  predicate  suitable  for  an  ascending  SORT  (which  see)  is  <G?  <STRCOMP  .ARG1  .ARG2>  0>.] 


8.2.3.  Boolean  Operators  [I] 

< NOT  e:f  at  sc -or -crny'> 

evaluates  to  T only  if  e evaluates  to  a FALSE,  and  to  IFALSE  ()  otherwise. 
<AND  el  c2  ...  eN> 
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AND  is  an  rSllllR.  It  evaluates  its  arguments  from  first  to  last  as  they  appear  in  the  FORM.  As  soon 
as  one  of  them  evaluates  to  a I ALSE,  it  returns  that  FALSE,  ignoring  any  remaining  arguments.  If 
none  of  them  evaluate  to  FALSE,  it  returns  EVAL  of  its  last  argument.  <AND>  returns  T.  AND?  is  the 
SUBR  equivalent  to  AND,  that  is.  all  its  arguments  are  evaluated  before  any  of  them  is  tested. 

COR  cl  c2  ...  cN> 

OR  is  an  FSUBR . It  evaluates  its  arguments  from  first  to  last  as  they  appear  in  the  FORM.  As  soon 
as  one  of  them  evaluates  to  a non-FAlSE,  OR  returns  that  non-FALSE  value,  ignoring  any  remaining 
arguments.  If  this  never  occurs,  it  returns  the  last  FALSE  it  saw.  <0R>  returns  #FALSE  ().  OR?  is 
the  5UUR  equivalent  to  OR. 


8.2.4.  Object  Properties  [I] 

CTYPE?  t\pe-l  ...  type-N> 

evaluates  to  t\pc-i  only  if  <-  = ? typc-i  CTYPE  *ny>>  is  true.  It  is  faster  and  gives  more  information 
than  ORing  tests  for  each  TYPE  . If  the  test  fails  for  all  type-i s.  TYPE?  returns  #FALSE  ( ) . 

CAPrLICARLE?  e> 

evaluates  to  l only  if  e is  of  a TYPE  that  can  legally  be  applied  to  arguments  in  a FORM,  that  is.  be 
(EVAL  of)  the  first  element  of  a FORM  being  evaluated  (appendix  3). 

C MONAD?  <?> 

evaluates  to  #FAISF  ( ) only  if  NTH  and  REST  (with  non-xrro  second  argument)  can  be  performed  on 
its  argument  without  error.  An  unstructured  or  empty  structured  object  will  cause  MONAD?  to  return 


CSTRUCTIIRI  0?  e> 

evaluates  to  T only  if  c is  a structured  object.  It  is  not  the  inverse  of  MONAD?,  since  each  returns  T 
if  its  argument  is  an  empty  structure. 

CEMPTY7  structured > 

evaluates  to  T only  if  its  argument,  which  must  be  a structured  object,  has  no  elements. 

C LENGTH?  structured  fis > 

evaluates  to  UINGIII  stru<turcd>  only  if  that  is  less  than  or  equal  to  fix;  otherwise,  it  evaluates  to 
#FALSF  ( ) . M Demonically,  you  ran  think  of  the  first  two  letters  of  LENGTH?  as  signifying  the  "less 
than  or  equal  to"  sense  of  the  test. 
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This  SUBR  was  invented  to  use  on  lists,  because  MDL  can  determine  their  lengths  only  by  stepping 
along  the  list,  counting  the  elements.  If  a program  needs  to  know  only  how  the  length  compares 
with  a given  number,  LENGTH?  will  tell  without  necessarily  stepping  all  the  way  to  the  end  of  the 
list,  in  contrast  to  LENGTH. 

[If  structured  is  a circular  PRIMTYPE  LIST,  LENGTH?  will  return  a value,  whereas  LENGTH  will  execute 
forever.  To  see  if  you  can  do  <REST  structured  <♦  1 fix»  without  error,  do  the  test  <N0T  <LENGTH? 
structured  fix».] 


8.3.  COND  [11 

The  MDL  Subroutine  which  is  most  used  for  varying  evaluation  depending  on  a truth  value  is  the 
FSU8R  COND  ("conditional").  A call  to  COND  has  this  format: 

<COND  clause- Hist  ...  clause-NJist> 

where  N is  at  least  one. 

COND  always  returns  the  result  of  the  last  evaluation  it  performs.  The  following  rules  determine  the 
order  of  evaluations  performed. 

(1)  Evaluate  the  first  element  of  each  clause  (from  first  to  last)  until  either  a non*FALSE  object 
results  or  the  clauses  are  exhausted. 

(2)  If  a non-FALSE  object  is  found  in  (1),  immediately  evaluate  the  remaining  elements  (if  any) 
of  that  clause  and  ignore  any  remaining  clauses. 

In  other  words.  COND  goes  walking  down  its  clauses,  EVALing  the  first  element  of  each  clause,  looking 
for  a non-FALSE  result.  As  soon  as  it  finds  a non-FALSE,  it  forgets  about  all  the  other  clauses  and 
evaluates,  in  order,  the  other  elements  of  the  current  clause  and  returns  the  last  thing  it  evaluates. 
If  it  can't  find  a non-FALSE,  it  returns  the  last  FALSE  it  saw. 


8.3.1.  Examples  [I] 

<SET  F *( I)>S 
(1) 

<COND  (<EMPTY?  .F>  ENP)  (<17  < LENGTH  ,F»  ONE)>S 
ONE 

<SET  F ()>S 

<> 

<COND  (<EMPTY?  .F>  EMP)  (<1?  <LENGTH  .F»  0NE)>S 
EMP 
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<SET  F '(1  2 3)>S 
(I  2 3) 

<COND  (<EMPTY?  .F>  EHP)  «1?  < LENGTH  .F»  ONE)>S 
#FALSE  () 

<CONO  «LENGTH7  .F  2>  SHALL)  (8IG)>S 
BIG 

< DEFINE  FACT  (N)  ;"the  standard  recursive  factorial" 

<COND  (<0?  .N>  I) 

(ELSE  <«  .N  <FACT  <-  .N  1»>)»S 

FACT 

<FACT  5>S 
120 


8.4.  Shortcuts  with  Conditionals 


8.4.1.  AND  and  OR  as  Short  CONDs 


Since  AND  and  OR  are  FSUBRs,  they  can  be  used  as  miniature  CONDs.  A construct  of  the  form 
<AND  pre-conditions  action(s)> 


<0R  pre-exclusions  action(s)'} 

will  allow  action(s)  to  be  evaluated  only  if  all  the  pre-conditions  are  true  or  only  if  all  the  pre- 
exclusions  are  false.  respectively.  By  nesting  and  using  both  AND  and  OR,  fairly  powerful  constructs 
can  be  made.  Of  course,  if  action! s)  are  more  than  one  thing,  you  must  be  careful  that  none  but  the 
last  returns  false  or  true,  respectively.  Watch  out  especially  for  TERPRI  (chapter  11).  Examples: 

<AND  < ASSIGNED?  FLAG)  .FLAG  <FCN  ,ARG» 

applies  FCN  only  if  someone  else  has  SET  FLAG  to  true.  (ASSIGNED?  is  true  if  its  argument  ATOM  has 
an  LVAL.)  No  error  can  occur  in  the  testing  of  FLAG  because  of  the  order  of  evaluation. 

<AND  <SET  C <0PEN  "READ"  "A  FILE"))  <L0AD  .C>  <CL0SE  ,C» 

effectively  FLOADs  the  file  (chapter  II)  without  the  possibility  of  getting  an  error  if  the  file  cannot 
be  opened. 
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8.4.2.  Embedded  llncoudilionals 


One  of  t lie  disadvantages  of  COND  is  that  there  is  no  straightforward  way  to  do  things 
unconditionally  in  between  tests.  One  way  around  this  problem  is  to  insert  a dummy  clause  that 
never  succeeds,  because  its  only  LIST  element  is  an  AND  that  returns  a FALSE  for  the  test.  Example: 

<COND  ( <0 ? .N>  <F0  .N>) 

(<1?  . N>  <F 1 ,N>) 

(<AND  <SET  N («  2 <FIX  </  .N  2»» 

; "Round  .N  down  to  even  number." 

<») 

(<LENGTH?  .VEC  .N>  '[]) 

(T  (REST  .VEC  <■*•  I .N»)> 

A variation  is  to  make  the  last  AND  argument  into  the  test  for  the  COND  clause.  (That  is,  the  third 
and  fourth  clauses  in  the  above  example  can  be  combined.)  Of  course,  you  must  be  careful  that  no 
other  AND  argument  evaluates  to  a FALSE;  most  Subroutines  do  not  return  a FALSE  without  a very 
good  reason  for  it.  (A  notable  exception  is  TERPRI  (which  see).)  Even  safer  is  to  use  PROG  (section 
10.1)  instead  of  AND . 

Another  variation  is  to  increase  the  nesting  with  a new  COND  after  the  unconditional  part.  At  least 
this  method  does  not  make  the  code  appear  to  a human  reader  as  though  it  does  something  other 
than  what  it  really  does.  The  above  example  could  be  done  this  way: 

(COND  ((0?  .N>  (F0  .N>) 

((1?  .N>  (FI  .N>) 

(T 

(SET  N (*  2 (FIX  (/  .N  2»» 

(COND  ((LENGTH?  .VEC  .N>  '[]) 

(T  (REST  .VEC  <♦  1 ,N»)>)> 
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Chapter  9.  Funotions 

Tl» is  chapter  could  he  named  "fun  and  games  with  argument  LISTs".  Its  purpose  is  to  explain  the 
more  complicated  things  which  can  be  done  with  FUNCTIONS,  and  this  involves,  basically,  explaining 
all  the  various  tol.ens  which  can  appear  in  the  argument  LIST  of  a FUNCTION.  Topics  are  covered 
in  what  is  approximately  an  order  of  increasing  complexity.  This  order  has  little  to  do  with  the 
order  in  which  tol.ens  can  actually  appear  in  an  argument  LIST,  so  what  an  argument  LIST  "looks 
like"  overall  gets  rather  lost  in  the  shuffle.  To  alleviate  this  problem,  section  9.9  is  a summary  of 
everything  that  can  go  into  an  argument  LIST,  in  the  correct  order.  If  you  find  yourself  getting 
lost,  please  refer  to  that  summary. 


9.1.  "OPTIONAL"  [IJ 

MDL  provides  very  convenient  means  for  allowing  optional  arguments.  The  STRING  "OPTIONAL- 
(or  "OPT"  - they’re  totally  equivalent)  in  the  argument  LIST  allows  the  specification  of  optional 
arguments  with  values  to  he  assigned  by  default.  The  syntax  of  the  "OPTIONAL"  part  of  the 
argument  LISI  is  as  follows: 

"OPTIONAL"  *1 1 *1-2  ...  *I-N 

First,  there  is  the  SIRING  "OPTIONAL".  Then  there  is  any  number  of  either  ATOMs  or  two-element 
LISTs.  intermixed,  one  per  optional  argument.  The  first  element  of  each  two-element  LIST  must  be 
an  ATOM;  (his  is  the  dummy  variable.  The  second  clement  is  an  arbitrary  MDL  expression.  If  there 
are  required  arguments,  they  must  come  before  the  "OPTIONAL". 

When  EVAL  is  binding  the  variables  of  a FUNCTION  and  sees  "OPTIONAL",  the  following  happens: 

If  an  explicit  argument  was  given  in  the  position  of  an  optional  one,  the  explicit  argument  is 
bound  to  the  corresponding  dummy  ATOM. 

If  there  is  no  explicit  argument  and  the  ATOM  stands  alone,  that  is,  it  is  not  the  first  element  of 
a two-element  I IS1 , that  ATOM  becomes  "bound",  but  no  local  value  is  assigned  to  it  [see  below). 
A local  value  can  be  assigned  to  it  by  using  SET. 
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If  there  is  no  explicit  argument  and  the  ATOM  is  the  first  element  of  a two-element  LIST,  the 
MDL  expression  in  the  LIST  with  the  ATOM  is  evaluated  and  bound  to  the  ATOM. 

[Until  an  ATOM  is  assigned,  any  attempt  to  reference  its  LVAL  will  produce  an  error.  The  predicate 
SUBRs  BOUND?  and  ASSIGNLD?  can  be  used  to  check  for  such  situations.  BOUND?  returns  T if  its 
argument  is  currently  hound  via  an  argument  LIST  or  has  ever  been  SET  while  not  bound  via  an 
argument  LIST . The  latter  kind  of  binding  is  called  "top-level  binding",  because  it  is  done  outside 
all  active  arginuent-LIST  binding.  ASSIGNED?  will  return  #FALSE  ()  if  its  argument  is  either 
unassigned  or  unbound.  By  the  way.  there  are  two  predicates  for  global  values  similar  to  BOUND? 
and  ASSIGNED?,  namely  GBOUND?  and  GASSIGNEO?.  Each  returns  T only  if  its  argument,  which  (as 
in  BOUND?  and  ASSIGNED?)  must  be  an  ATOM,  has  a global  value  "slot"  (chapter  22)  or  a global  value, 
respectively.] 

Example: 


<DEF INE  INC  1 (A  "OPTIONAL"  (N  1))  <SET  .A  <♦  ..A  .N>»S 
INC  1 

<SET  B 0>S 
0 

< INC  1 B>S 
1 

< INC  1 B 5>S 
6 

Here  we  defined  another  (not  quite  working)  increment  FUNCTION.  It  now  takes  an  optional 
argument  specifying  how  much  to  increment  the  ATOM  it  is  given.  If  not  given,  the  increment  is  1. 
Now.  1 is  a pretty  simple  MDL  expression;  there  is  no  reason  why  the  optional  argument  cannot  be 
complicated  — for  example,  a call  to  a FUNCTION  which  reads  a file  on  an  I/O  device. 


9.2.  TUPLES 


9.2.1.  "TUPLE"  and  TUPLE  (the  TYPE)  [I] 

There  are  also  times  when  you  want  to  be  able  to  have  an  arbitrary  number  of  arguments.  You  can 
always  do  this  by  defining  the  FUNCTION  as  having  a structure  as  its  argument,  with  the  arbitrary 
number  of  arguments  as  elements  of  the  structure.  This  can,  however,  lead  to  inelegant-looking 
FORMs  and  extra  garbage  to  be  collected.  The  STRING  "TUPLE"  appearing  in  the  argument  LIST 
allows  you  to  avoid  that.  It  must  follow  explicit  and  optional  dummy  arguments  (if  there  are  any 
of  either)  and  must  be  followed  by  an  ATOM. 

The  effect  of  "TUPLE"  appearing  in  an  argument  LIST  is  the  following:  any  arguments  left  in  the 
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FORM,  after  satisfying  explicit  and  optional  arguments,  are  EVALed  and  made  sequential  elements  of 
an  object  of  TYPL  and  PRIMTYPE  TUPLE.  The  TUPLE  is  then  bound  to  the  ATOM  following  "TUPLE" 
in  the  argument  LIST.  If  there  were  no  arguments  left  by  the  time  the  "TUPLE"  was  reached,  an 
empty  TUPLE  is  bound  to  the  ATOM. 

An  object  of  TYI’F  TUPLE  is  exactly  the  same  as  a VECTOR  except  that  a TUPLE  is  not  held  in 
garbage-collected  storage.  It  is  instead  held  with  ATOM  bindings  in  a control  stack.  This  does  not 
affect  manipulation  of  the  TUPLE  within  the  function  generating  it  or  any  function  called  within 
that  one:  it  can  be  treated  just  like  a VECTOR.  Note,  however,  that  a TUPLE  ceases  to  exist  when  the 
function  which  generated  it  returns.  Returning  a TUPLE  as  a value  is  a good  way  to  generate  an 
error.  (A  copy  of  a TUPLE  can  easily  be  generated  by  segment-evaluating  the  TUPLE  into  something; 
that  copy  can  be  returned.)  The  predicate  LEGAL?  returns  IFALSE  ()  if  it  is  given  a TUPLE 
generated  by  an  APPLICABLE  object  which  has  already  returned,  and  T if  it  is  given  a TUPLE  which  is 
still  "good". 

Example: 


<DFF  JNI  NIIIARG  (N  "TUPLE"  T) 

;"Gct  all  but  first  argument  Into  T." 

<C0ND  (<==?  1 .N>  1) 

;"If  N is  1,  return  1st  arg,  l.e.,  .N, 
i.e.,  1.  Note  that  <1?  .N>  would  be 
true  even  if  .N  were  1.0." 

(<L?  <LENGTH  .T>  <SET  N <-  .N  1>» 

IFALSE  ("DUMMY")) 

;"Chcck  to  see  if  there  is  an  Nth  arg, 
and  make  N a good  index  into  T while 
you’re  at  it. 

If  there  isn't  an  Nth  arg,  complain." 

(ELSE  <NTH  .T  .N>)>> 

NTHARG,  above,  takes  any  number  of  arguments.  Its  first  argument  must  be  of  TYPE  FIX.  It 
returns  EVAI  of  its  Nth  argument,  if  it  has  an  Nth  argument.  If  it  doesn't,  it  returns  IFALSE 
("DUMMY").  (The  Fl.SF  is  not  absolutely  necessary  in  the  last  clause.  If  the  Nth  argument  is  a 
FALSE,  the  CONI)  will  return  that  FALSE.)  Exercise  for  the  reader:  NTHARG  will  generate  an  error  if 
its  first  argument  is  not  FIX.  Where  and  why?  (How  about  <NTHARG  1.5  2 3>  ?)  Fix  it. 


9 2 2 tUPLE  (the  SUBR)  and  I1UPLE 

These  snnRs  arr  the  same  as  VECTOR  and  IVECTOR,  except  that  they  build  TUPLES  (that  is,  vectors  on 
•t.  i "wir'd  si.it  kl  They  can  be  used  only  at  top  level  in  an  "OPTIONAL"  list  or  "AUX"  list  (see 
.•  Ih e clear  advantage  of  1UPLE  and  ITUPLE  ("implicit  tuple")  is  in  storage-management 

• • I n y produce  no  garbage,  since  they  are  flushed  automatically  upon  function  return. 
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Examples: 

<DEF INE  F (A  B "AUX"  (C  <ITUPLE  10  3>))  ...> 

creates  a 10-element  TUPLE  and  SETs  C to  it. 

<DEF INE  H ("OPTIONAL"  (A  <ITUPLE  10  *<I») 

"AUX"  (B  <TUPLE  ! .A  l 2 3>) ) 

. . .> 

These  are  valid  uses  of  TUPLE  and  ITUPLE.  However,  the  following  is  not  a valid  use  of  TUPLE, 
because  it  is  not  called  at  top  level  of  the  "AUX": 

< DEFINE  NO  (A  B "AUX"  (C  <REST  <TUPLE  !.A»))  ...> 

However,  the  desired  effect  could  be  achieved  by 

<0EF INF  OK  (A  B "AUX"  (D  <TUPLE  ! .A>)  (C  <REST  .D>))  ...> 


9.3.  "AUX"  [11 

"AUX"  (or  "EXTRA"  — they're  totally  equivalent)  are  STRINGS  which,  placed  in  an  argument  LIST, 
serve  to  dynamically  allocate  temporary  variables  for  the  use  of  a Function. 

"AUX"  must  appear  in  the  argument  LIST  after  any  information  about  explicit  arguments.  It  is 
followed  by  ATOMs  or  two-element  LISTs  as  if  it  were  "OPTIONAL".  ATOMs  in  the  two-element  LISTs 
are  bound  to  EVAl  of  the  second  element  in  the  LIST.  Atoms  not  in  such  LISTs  are  initially 
unassigned:  they  are  explicitly  given  "no"  LVAL. 

All  binding  specified  in  an  argument  LIST  is  done  sequentially  from  first  to  last,  so  initialization 
expressions  for  "AUX"  (or  "OPTIONAL")  can  refer  to  objects  which  have  just  been  bound.  For 
example,  this  works: 

< DEFINE  AUXEX  ("TUPLE"  T 

"AUX"  (A  <LENGTH  .T>)  (8  <«  2 .A>)) 

![.A  ,B]>S 

AUXEX 

< AUXEX  1 2 "FOO">S 
![3  6!] 
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9.4.  QtlOTId  arguments 

If  an  A I Oil  in  an  argument  LIST  which  is  to  be  bound  to  a required  or  optional  argument  is 
surrounded  by  a call  to  QUOTE,  t hat  ATOM  is  bound  to  the  unevaluated  argument.  Example: 

<I)tf  INI  02  (A  ' B ) ( .A  ,B))S 
02 

<02  <■*■  1 2>  <♦  1 2»S 
(3  <♦  1 ?>) 

It  is  not  often  appropriate  for  a function  to  take  its  arguments  unevaluated,  because  such  a practice 
makes  it  less  modular  and  harder  to  maintain:  it  and  the  programs  that  call  it  tend  to  need  to  know 
more  about  each  oilier,  and  a change  in  its  argument  structure  would  tend  to  require  more  changes 
in  the  programs  that  call  it.  And.  since  few  functions,  in  practice,  do  take  unevaluated  arguments, 
users  tend  to  assume  that  no  functions  do  (except  FSUBRs  of  course),  and  confusion  inevitably 
results. 


9.5.  "ARGS" 

The  indicator  "ARCS"  can  appear  in  an  argument  LIST  with  precisely  the  same  syntax  as  "TUPLE". 
Hosvever.  "ARGS"  causes  the  ATOM  following  it  to  be  bound  to  a LIST  of  the  remaining  unevaluated 
arguments. 

"ARGS"  does  not  cause  any  copying  to  take  place.  It  simply  gives  you 


<REST  application:! or m fix > 

with  an  appropriate  fix.  The  TYPE  change  to  LIST  is  a result  of  the  REST.  Since  the  LIST  shares 
all  its  elements  with  the  original  FORM,  PUTs  into  the  LIST  will  change  the  calling  program, 
however  dangernus  that  may  be. 

Examples: 

<PEF INE  01 T (N  "ARGS"  L)  <.N  ,L»S 
OH 

<01 T 2 <♦  3 4>  <LENGTH  ,QALL>  F00>S 
< LE NG T II  .QALL) 

<nfFINr  FUNCTl  ("ARGS"  ARGL-ANO-BOOY) 

<CH1 YPE  .ARGL-AND-B0DY  FUNCTION))* 

FlINCTl 

<FUNCT1  (A  B)  <♦  .A  ,B))S 
FUNCTION  ((A  B)  <♦  .A  .B>) 
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The  last  example  is  a perfectly  valid  equivalent  of  the  FSUBR  FUNCTION. 


9,6.  "CAU" 

The  indicator  "CALL"  is  an  ultimate  "ARGS".  If  it  appears  in  an  argument  LIST,  it  must  be 
followed  by  an  ATOM  and  must  be  the  only  thing  used  to  gather  arguments.  "CALL"  causes  the  ATOM 
which  follows  it  to  become  bound  to  the  actual  FORM  that  is  being  evaluated  ••  that  is,  you  get  the 
"function  call"  itself.  Since  "CALL"  binds  to  the  FORM  itself,  and  not  a copy,  PUTs  into  that  FORM  will 
change  the  calling  code. 

"CALL"  exists  as  a Catch-22  for  argument  manipulation.  If  you  can’t  do  it  with  "CALL",  it  can’t  be 
done. 


9.7.  EVAL  and  "B1NP" 

Obtaining  uuevaluated  arguments,  for  example,  via  QUOTE  and  "ARGS",  very  often  implies  that  you 
wish  to  evaluate  them  at  some  point.  You  can  do  this  by  explicitly  calling  EVAL,  which  is  a SUBR. 
Example: 

<SET  F '<♦  1 2»S 
<+  I 2> 

<EVAL  .F>$ 

3 

EVAL  can  take  a second  argument,  of  TYPE  ENVIRONMENT  (or  others,  see  section  20.8).  An 
ENVIRONMENT  consists  basically  of  a state  of  ATOM  bindings;  it  is  the  "world"  mentioned  in  chapter  5. 
Nosv.  since  binding  changes  the  ENVIRONMENT,  if  you  wish  to  use  EVAL  within  a FUNCTION,  you 
probably  want  to  get  hold  of  the  environment  which  existed  before  that  FUNCTION'S  binding  took 
place.  The  indicator  "ITIND",  which  must,  if  it  is  used,  be  the  first  thing  in  an  argument  LIST, 
provides  this  information.  It  binds  the  ATOM  immediately  following  it  to  the  ENVIRONMENT  existing 
"at  call  time"  - that  is.  just  before  any  binding  is  done  for  its  FUNCTION.  Example: 

<SE1  A 0>$ 

0 

<DEF INE  WRONG  ( *B  "AUX"  (A  1))  <EVAL  .B»S 
WRONG 

< WRONG  . A>S 
1 

<DEFINE  RIGHT  ("BIND"  E 'B  "AUX"  (A  1))  <EVAL  .B  ,E»S 
RIGHT 
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CKIGHT  . A>$ 
0 


9.7.1.  Local  Values  versus  F NVlRONMFNTs 

SET.  LVAl  . VAlUl  . BOUND?.  ASSIGNED?,  and  UNASSIGN  all  take  a final  optional  argument  which 
lias  not  previously  been  mentioned:  an  ENVIRONMENT  (or  other  TYPES,  see  section  20.8).  If  this 
argument  is  given,  the  SET  or  LVAL  is  done  in  the  ENVIRONMENT  specified.  LVAL  cannot  be 
abbreviated  by  . (period)  if  it  is  given  an  explicit  second  argument. 

This  feature  is  just  what  is  needed  to  cure  the  INC  bug  mentioned  in  chapter  5.  A "correct"  INC  can 
be  defined  as  follows: 

<DEE INF  INC  ("BIND"  OUTER  ATM) 

<SFT  .AIM  <♦  1 <LVAL  .ATM  .0UTER>>  ,OUTER» 


9.8.  AC  1 1 VA I ION,  "NAHF  " , "ACT",  AGAIN , and  RETURN  [I] 

EVALuatiou  of  a FUNCTION,  after  the  argument  LIST  has  been  taken  care  of.  normally  consists  of 
EVAluating  each  of  the  ob  jects  in  the  body  in  the  order  given,  and  returning  the  value  of  the  last 
thing  FVAIed.  If  you  want  to  vary  this  sequence,  you  need  to  know,  at  least,  where  the  FUNCTION 
begins.  Actually,  I VAl  normally  hasn’t  the  foggiest  idea  of  where  its  current  FUNCTION  began. 
"VVhere'd  1 statt"  information  is  Imndled  up  with  a TYPE  called  ACTIVATION.  In  "normal"  FUNCTION 
EVALuatiou.  ACTIVATIONS  are  not  generated;  one  can  be  generated,  and  bound  to  an  ATOM,  in  either 
of  the  two  following  ways: 

(1)  Put  an  A10M  immediately  before  the  argument  LIST.  The  ACTIVATION  of  the  Function  will 
be  bound  to  that  A10M . 

(2)  As  the  last  thing  in  the  argument  LIST,  insert  either  of  the  STRINGS  "NAME"  or  "ACT"  and 
follow  it  with  an  ATOM.  The  ATOM  will  be  bound  to  the  ACTIVATION  of  the  Function. 

In  this  document  "Function”  (capitalized)  will  designate  anything  that  can  generate  an  ACTIVATION; 
besides  TYPE  TUNC  I ION,  this  class  includes  the  FSUBRs  PROG,  BIND,  and  REPEAT,  yet  to  be 
discussed. 

Each  ACT  I VA  I ION  icfcrs  explicitly  to  a particular  evaluation  of  a Function.  For  example,  if  a 
recursive  FUNCTION  generates  an  AC  1 1 VA  1 ION , a new  ACTIVATION  referring  explicitly  to  each 
recursion  step  is  generated  on  every  recursion. 

Like  TUPl  Is,  AC  1 1 VA  1 1ONs  are  held  in  a control  stack.  Unlike  TUPLES,  there  is  no  way  to  get  a copy 
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of  an  ACTIVATION  which  can  usefully  be  returned  as  a value.  (This  is  a consequence  of  the  fact  that 
ACTIVATIONS  refer  to  evaluations;  when  the  evaluation  is  finished,  the  ACTIVATION  no  longer  exists.) 
ACTIVATIONS  can  be  tested,  like  TUPLES,  by  LEGAL?  for  legality.  They  are  used  by  the  SUBRs  AGAIN 
and  RETURN. 

AGAIN  can  take  one  argument:  an  ACTIVATION.  It  means  ‘start  doing  this  again*,  where  "this*  is 
specified  by  the  ACTIVATION.  Specifically.  AGAIN  causes  EVAL  to  return  to  where  it  started  working 
on  the  body  of  the  Function  in  the  evaluation  specified  by  the  ACTIVATION.  The  evaluation  is  not 
redone  completely:  in  particular,  no  re-binding  (of  arguments,  "AUX"  variables,  etc.)  is  done. 

RETURN  can  take  two  arguments:  an  arbitrary  expression  and  an  ACTIVATION,  in  that  order.  It 
causes  the  Function  evaluation  whose  ACTIVATION  it  is  given  to  terminate  and  return  EVAL  of 
RETURN'S  first  argument.  That  is,  RETURN  means  *quit  doing  this  and  return  that",  where  "this"  is  the 
ACTIVATION  ••  its  second  argument  ->  and  "that"  is  the  expression  - its  first  argument.  Example: 

<DEF INE  MY+  ("TUPLE"  T "AUX"  (M  0)  "NAME"  NM) 

<COND  (<EMPTY?  .T>  < RETURN  .M  .NM>)> 

<SET  M <♦  .M  <1  .T»> 

<SET  T <REST  .T» 

< AGAIN  .NN»S 

HY+ 

<HY*  1 3 < LENGTH  "FOO"»S 
7 

<NY«->$ 

0 

Note:  suppose  an  ACTIVATION  of  one  Function  (call  it  FI)  is  passed  to  another  Function  (call  it  F2)  - 
for  example,  via  an  application  of  F2  within  FI  with  FI’s  ACTIVATION  as  an  argument.  If  F2 
RETURNS  to  FI’s  ACTIVATION,  F2  and  FI  terminate  immediately,  and  F_1  returns  the  RETURN’S  first 
argument.  This  technique  is  suitable  for  error  exits.  AGAIN  can  clearly  pull  a similar  trick.  In  the 
following  example.  FI  computes  the  sum  of  F2  applied  to  each  of  its  arguments;  F2  computes  the 
product  of  the  elements  of  its  structured  argument,  but  it  aborts  if  it  finds  an  element  that  is  not  a 
number. 


<0EFINE  FI  ACT  ("TUPLE"  T "AUX"  (T1  .T)) 
<COND  (<N0T  <EMPTY7  .Tl» 

<PUT  ,T1  1 <F2  <1  ,T1>  .ACT» 
<SET  T1  <REST  .Tl» 

< AGAIN  ,ACT>) 

(ELSE  <♦  !.T>)»S 
FI 
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< DEFINE  F 2 (S  A "AUX"  (SI  .S)) 

< RE PEAT  HY-ACT  ((PRO  1)) 

<COND  (<NOT  <EHPTY?  .Sl» 

<COND  (<NOT  <TYPE?  <1  .Sl>  FIX  FLOAT» 

< RE  TURN  IFALSE  ("NON -NUMBER*)  ,A>) 
(ELSE  <SET  PRO  <■  .PRO  <1  .Sl»>)> 
<5ET  SI  <REST  .Sl») 

(ELSE  < RE  TURN  .PRD>)»>S 
F 2 

<F1  *(1  2)  M3  4»S 
14 

<F1  MT  2)  M3  4)>S 
#FALSE  ( "NON-NUMBER") 


9.9.  Argument  List  Summary 

The  following  is  a listing  of  all  the  various  tokens  which  can  appear  in  the  argument  LIST  of  a 
FUNCTION,  in  the  order  in  which  they  can  occur.  Short  descriptions  of  their  effects  are  included. 
All  of  them  are  optional  - that  is.  any  of  them  (in  any  position)  can  be  left  out  or  included  --  but 
the  order  in  which  they  appear  must  be  that  of  this  list.  “QUOTEd  ATOM",  "matching  object",  and  *2- 
list"  are  defined  below. 


(1)  "BIND" 

must  be  followed  by  an  ATOM.  It  binds  that  ATOM  to  the  ENVIRONMENT  which  existed 
when  the  FUNCTION  was  applied. 

(2)  ATOMs  and  QUOTFd  ATOM*  (any  number) 

are  required  arguments.  QUOTEd  ATOMs  are  bound  to  the  matching  object.  ATOMs  are 
bound  to  EVAL  of  the  matching  object  in  the  ENVIRONMENT  existing  when  the  FUNCTION 
was  applied. 

(3)  "OPTIONAL"  or  "OP1"  (they’re  equivalent) 

is  followed  by  any  number  of  ATOMs,  QUOTEd  ATOMs,  or  2-lists.  These  are  optional 
arguments.  If  a matching  object  exists,  an  ATOM  ••  either  standing  alone  or  the  first 
element  of  a 2-list  - is  bound  to  EVAL  of  the  object,  performed  in  the  ENVIRONMENT 
existing  when  the  FUNCTION  was  applied.  A QUOTEd  ATOM  - alone  or  in  a 2-list  - is 
bound  to  the  matching  object  itself.  If  no  such  object  exists.  ATOMs  and  QUOTEd  ATOMs 
are  left  unbound,  and  the  first  element  of  each  2-list  is  bound  to  EVAL  of  the 
corresponding  second  element.  (This  EVAL  is  done  in  the  new  ENVIRONMENT  of  the 
Function  as  it  is  being  constructed.) 
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(4)  "ARGS"  (and  not  "TUPLE") 

must  be  follow cd  by  an  ATOM.  The  ATOM  is  bound  to  a LIST  of  all  the  remaining 
arguments,  unevaluated.  (If  there  are  no  more  arguments,  the  LIST  is  empty.)  This 
LIST  is  actually  a REST  of  the  FORM  applying  the  FUNCTION.  If  "ARGS"  appears  in  the 
argument  LIST,  " TUPLE"  should  not  appear. 

(4)  "TUPLE"  (and  not  "ARGS") 

must  be  followed  by  an  ATOM.  The  ATOM  is  bound  to  a TUPLE  (“VECTOR  on  the  control 
stack  ')  of  all  the  remaining  arguments,  evaluated  in  the  environment  existing  when  the 
FUNCTION  was  applied.  (If  no  arguments  remain,  the  TUPLE  is  empty.)  If  "TUPLE" 
appears  in  the  argument  LIST,  "ARGS"  should  not  appear. 

(5)  "AUX"  or  "EXTRA"  (they’re  equivalent) 

is  followed  by  any  number  of  ATOMs  or  2-lists.  These  are  auxiliary  variables,  bound 
away  from  the  previous  environment  for  the  use  of  this  Function.  ATOMs  are  bound  in 
the  ENVIRONMENT  of  the  Function,  but  they  are  unassigned:  the  first  element  of  each  2- 
list  is  both  bound  and  assigned  to  EVAL  of  the  corresponding  second  element.  (This 
I.VAL  is  done  in  the  new  ENVIRONMENT  of  the  Function  as  it  is  being  constructed.) 

(6)  "NAME"  or  "ACT"  (they're  equivalent) 

must  be  followed  by  an  ATOM.  The  ATOM  is  bound  to  the  ACTIVATION  of  the  current 
evaluation  of  the  Function. 

ALSO  - in  place  of  sections  (2)  (3)  and  (4),  you  can  have 
(2-3-4)  "CAM  " 

which  must  be  followed  by  an  ATOM.  The  ATOM  is  bound  to  the  FORM  which  caused 
application  of  this  FUNCTION. 


The  special  terms  used  above  mean  this: 

“QUOTCd  ATOM"  - a two-element  TORM  whose  first  element  is  the  ATOM  QUOTE,  and  whose  second 
element  is  any  ATOM.  (Can  be  typed  - and  will  be  PRINTcd  - as  'atom.) 

Matching  object'  --  that  clement  of  a FORM  whose  position  in  the  FORM  matches  the  position  of  a 
required  or  optional  argument  in  an  argument  LIST. 

“2-list”  - a two-element  LIST  whose  first  element  is  an  ATOM  (or  QUOTEd  ATOM;  see  below)  and  whose 
second  clement  can  be  anything  but  a SEGMENT.  EVAL  of  the  second  element  is  assigned  to  a new 
binding  of  the  first  clement  (the  ATOM)  as  the  "value  by  default"  in  "OPTIONAL"  or  the  “initial  value" 
in  "AUX".  In  the  case  of  "0P110NAL",  the  first  element  of  a 2-list  can  be  a QUOTEd  ATOM;  in  this 
case,  an  argument  which  is  supplied  is  not  EVALed.  but  if  it  is  not  supplied  the  second  element  of 
the  LIST  is  EVAled  and  assigned  to  the  ATOM. 
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Occasionally  there  is  a valid  reason  for  the  first  element  of  a FORM  not  to  be  an  ATOM.  For  example, 
the  object  to  be  applied  to  arguments  may  be  chosen  at  run  time,  or  it  may  depend  on  the 
arguments  in  some  way.  While  CVAL  is  perfectly  happy  in  this  case  to  EVALuate  the  first  element 
and  go  on  from  there,  the  compiler  (l.ebling,  1979)  can  generate  more  efficient  code  if  it  knows 
whether  the  result  of  the  evaluation  will  (I)  always  be  of  TYPE  FIX,  (2)  always  be  an  applicable  non- 
FIX  object  that  evaluates  all  its  arguments,  or  (3)  neither.  The  easiest  way  to  tell  the  compiler  if  (1) 
or  (2)  is  true  is  to  use  the  ATOM  NTH  (section  7.1.2)  or  PUT  (section  7.1.4)  in  case  (1)  or  APPLY  in  case  (2) 
as  the  first  element  of  the  rORM.  (Note:  case  (1)  can  compile  into  in-line  code,  but  case  (2)  compiles 
into  a fully  mediated  call  into  the  interpreter.) 


<APPLY  object  arg-1  ...  arg-N> 


evaluates  object  and  all  the  arg-is  and  then  applies  the  former  to  all  the  latter.  An  error  occurs  if 
object  evaluates  to  something  not  applicable,  or  to  an  FSUBR,  or  to  a FUNCTION  (or  user  Subroutine  « 
chapter  19)  with  "ARGS"  or  "CALL"  or  QUOTEd  arguments. 


Example: 


<APPLY  <NTII  .ANALYZERS 

<LENG1H  <MEMQ  (TYPE  .ARG>  .ARGTYPES»> 

.ARG> 


calls  a function  to  analyze  .ARG.  Which  function  is  called  depends  on  the  TYPE  of  the  argument; 
this  represents  the  idea  of  a dispatch  table. 


9.11.  CLOSURE 

< CLOSURE  function  a l aN> 

where  function  is  a FUNCTION,  and  al  through  aN  are  any  number  of  ATOMs,  returns  an  object  of 
TYPE  CLOSURE.  This  can  be  applied  like  any  other  function,  but.  whenever  it  is  applied,  the  ATOMs 
given  in  the  call  to  CLOSURE  are  first  bound  to  the  VALUES  they  had  when  the  CLOSURE  was 
generated,  then  the  function  is  applied  as  normal.  This  is  a "poor  man’s  funarg". 

A CLOSURE  is  useful  when  a FUNCTION  must  have  state  information  remembered  between  calls  to  it, 
especially  in  these  two  cases:  when  the  LVALs  of  external  state  ATOMs  might  be  compromised  by  other 
programs,  or  when  more  than  one  distinct  sequence  of  calls  are  active  concurrently.  Example  of  the 
latter:  each  object  of  a structured  NEVTYPE  might  have  an  associated  CLOSURE  tha'  coughs  up  one 
element  at  a time,  remembering  between  calls  how  far  it  got.  Often  only  one  ATOM  will  be  included 
in  the  CLOSURE,  svitli  a value  in  the  CLOSURE  that  is  a structure  containing  all  the  relevant 
information. 
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Chapter  10.  Looping 


tO.l.  PROG  and  REPf  AT  fll 

PROG  and  REPEAT  arc  almost  identical  FSUBRs  which  make  it  possible  to  vary  the  order  of  EVALuation 
arbitrarily  --  that  is.  to  have  "jumps".  The  syntax  of  PROG  ("program")  is 

<PROG  act -.atom  auxJist  body > 

where 

act  is  an  optional  ATOM,  which  is  bound  to  the  ACTIVATION  of  the  PROG. 

aux  is  a LIST  which  looks  exactly  like  that  part  of  a FUNCTION’S  argument  LIST  which  follows 
an  "AUX",  and  serves  exactly  the  same  purpose.  It  is  not  optional.  If  you  need  no  temporary 
variables  or  "ACT",  make  it  ( ) . 

body  is  a non-zero  number  of  arbitrary  MDL  expressions. 

The  syntax  of  REPEAT  is  identical,  except  that,  of  course,  REPEAT  is  the  first  element  of  the  FORM, 
not  PROG. 


10.1.1.  Basic  EVALuation  [I] 

Upon  entering  a PROG,  an  ACTIVATION  is  always  generated.  If  there  is  an  ATOM  in  the  right  place, 
the  ACTIVATION  is  also  bound  to  that  ATOM.  The  variables  in  the  aux  (if  any)  are  then  bound  as 
indicated  in  the  aux.  All  of  the  expressions  in  body  art  then  EVALuated  in  their  order  of  occurrence. 
If  nothing  untoward  happens,  you  leave  the  PROG  upon  evaluating  the  last  expression  in  body. 
returning  the  value  of  that  last  expression. 

PROG  thus  provides  a way  to  package  together  a group  of  things  you  wish  to  do,  in  a somewhat  more 
limited  way  than  can  be  done  with  a FUNCTION.  But  PROGs  are  generally  used  for  their  other 
properties. 
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REPEAT  acts  in  ail  ways  exactly  like  a PROG  whose  last  expression  is  <AGAIN>.  The  only  way  to  leave 
a REPEAT  is  to  explicitly  use  RETURN  (or  GO  with  a TAG  - section  10.4). 


10.1.2.  AGAIN  and  RETURN  in  PROG  and  REPEAT  [1] 

Within  a PROG  or  REPEAT,  you  always  have  a defined  ACTIVATION,  whether  you  bind  it  to  an  ATOM 
or  not.  [In  fact  the  interpreter  binds  it  to  the  ATOM  LPR0G\  ! -INTERRUPTS  Clast  PROG").  The  FSUBR 
BIND  is  identical  to  PROG  except  that  BIND  does  not  bind  that  ATOM,  so  that  AGAIN  and  RETURN  with 
no  ACTIVATION  argument  will  not  refer  to  it.  This  feature  could  be  useful  within  MACROS.] 

If  AGAIN  is  used  with  no  arguments,  it  uses  the  ACTIVATION  of  the  closest  surrounding  PROG  or 
REPEAT  within  the  current  function  (an  error  occurs  if  there  is  none)  and  re-starts  the  PROG  or 
REPEAT  without  rebinding  the  mix  variables,  just  the  way  it  works  in  a FUNCTION.  With  an 
argument,  it  can  of  course  re-start  any  Function  (PROG  or  REPEAT  or  FUNCTION)  within  which  it  ia 
embedded  at  run  time. 

As  with  AGAIN,  if  RETURN  is  given  no  ACTIVATION  argument,  it  uses  the  ACTIVATION  of  the  closest 
surrounding  PROG  or  REPEAT  within  the  current  function  and  causes  that  PROG  or  REPEAT  to 
terminate  and  return  RETURN’S  first  argument.  If  RETURN  is  given  no  arguments,  it  causes  the 
closest  surrounding  PROG  or  REPEAT  to  return  the  ATOM  T.  Also  like  AGAIN,  it  can,  with  an 
ACTIVATION  argument,  terminate  any  Function  within  which  it  is  embedded  at  run  time. 


10.1.3.  Examples  [I] 

Examples  of  the  use  of  PROG  are  difficult  to  find,  since  it  is  almost  never  necessary,  and  it  slows 
down  the  interpreter  (chapter  2-1).  PROG  can  be  useful  as  a point  of  return  from  the  middle  of  a 
computation,  or  inside  a COND  (which  see),  but  we  won’t  exemplify  these  uses.  Instead,  what  follows 
is  an  example  of  a typically  poor  use  of  PROG  which  has  been  observed  among  Lisp  (Moon,  1974) 
programmers  using  MDL.  Then,  the  same  thing  is  done  using  REPEAT.  In  both  cases,  the  example 
FUNCTION  just  adds  up  all  its  arguments  and  returns  the  sum.  (The  SUBR  GO  is  discussed  in  section 
10.4.) 

;"Lisp  style" 

(DEFINE  MY*  ("TUPLE"  TUP) 

<PR0G  (SUM) 

(SET  SUM  0> 

LP  (COND  ((EMPTY?  .TUP>  (RETURN  .SUM»> 

(SET  SUM  (♦  .SUM  (1  .TUP»> 

(SET  TUP  (REST  .TUP» 

(GO  LP>» 
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; "MDL  style" 

(DEFINE  MY+  ("TUPLE"  TUP) 

(REPEAT  ((SUM  0)) 

(CO ND  ((EMPTY?  .TUP>  (RETURN  .SUM»> 

(SET  SUM  (+  .SUM  (1  .TUP» 

(SET  TUP  (REST  .TUP»» 

Of  course,  neither  of  the  above  is  optimal  MDL  code  for  this  problem,  since  MY*  can  be  written 
using  SEGMENT  evaluation  as 

(DEFINE  MY+  ("1UPLE"  TUP)  (+  ! ,TUP» 

There  arc.  of  course,  lots  of  problems  which  can’t  be  handled  so  simply,  and  lots  of  uses  for  REPEAT. 


10.2.  MAPF  and  HAPR:  Basics  [1] 

MAPF  ("map  first")  and  MAPR  ("map  rest")  are  two  SUBRs  which  take  care  of  a majority  of  cases  which 
require  loops  over  data.  The  basic  idea  is  the  following: 

Suppose  you  have  a LIST  (or  other  structure)  of  data,  and  you  want  to  apply  a particular  function 
to  each  element.  That  is  exactly  what  MAPF  does:  you  give  it  the  function  and  the  structure,  and  it 
applies  the  function  to  each  element  of  the  structure,  starting  with  the  first. 

On  the  other  hand,  suppose  you  want  to  change  each  element  of  a structure  according  to  a 
particular  algorithm.  This  can  be  done  only  with  great  pain  using  MAPF,  since  you  don’t  have  easy 
access  to  the  structure  inside  the  function:  you  have  only  the  structure's  elements.  MAPR  solves  the 
problem  by  applying  a function  to  RESTs  of  a structure:  first  to  (REST  structure  0>,  then  to 
(REST  structure  1>,  etc.  Thus,  the  function  can  change  the  structure  by  changing  its  argument, 
for  example,  by  a (PUT  argument  1 something >.  It  can  even  PUT  a new  element  farther  down  the 
structure,  which  will  be  seen  by  the  function  on  subsequent  applications. 

Now  suppose,  in  addition  to  applying  a function  to  a structure,  you  want  to  record  the  results  -•  the 
values  returned  by  the  function  --  in  another  structure.  Both  MAPF  and  MAPR  can  do  this:  they  both 
take  an  additional  function  as  an  argument,  and,  when  the  looping  is  over,  apply  the  additional 
function  to  all  the  results,  and  then  return  the  result  of  that  application.  Thus,  if  the  additional 
function  is  .LIST,  you  get  a LIST  of  the  previous  results:  if  it  is  .VECTOR,  you  get  a VECTOR  of 
results:  etc. 

Finally,  it  might  be  the  case  that  you  really  want  to  loop  a function  over  more  than  one  structure 
simultaneously.  For  instance,  consider  creating  a LIST  whose  elements  are  the  element-by*element 
sum  of  the  contents  of  two  other  LISTs.  Both  MAPF  and  MAPR  allow  this:  you  can,  in  fact,  give  each 
of  them  any  number  of  structures  full  of  arguments  for  your  looping  function. 
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This  was  all  mentioned  because  MAPF  and  MAPR  appear  to  be  complex  when  seen  baldly,  due  to  the 
fact  that  thr  argument  descriptions  must  take  into  account  the  general  case.  Simpler,  degenerate 
cases  are  usually  the  ones  used. 


10.2.1.  MAPF  [I] 

<MAPF  final f loopf  si  s2  ...  sN> 
where  (after  argument  evaluation) 

fmalt  is  something  applicable  that  evaluates  all  its  arguments,  or  a FALSE; 
loopf  is  something  applicable  to  N arguments  that  evaluates  all  its  arguments;  and 
si  through  sA' arc  structured  objects  (any  TYPE) 
does  the  following: 

(1)  First,  it  applies  loopf  to  N arguments:  the  first  element  of  each  of  the  structures.  Then  it 
RESls  each  of  the  structures,  and  docs  the  application  again,  looping  until  any  of  the  structures 
runs  out  of  elements.  Each  of  the  values  returned  by  loop!  is  recorded  in  a TUPLE. 

(2)  Thru,  it  applies  final/  to  all  the  recorded  values  simultaneously,  and  returns  the  result  of  that 
application.  If  finalf  is  a FALSE,  the  recorded  values  are  "thrown  away"  (actually  never  recorded 
in  the  first  place)  and  the  MAPF  returns  only  the  last  value  returned  by  loopf.  If  any  of  the  si 
structures  is  empty,  so  that  loopf  is  never  invoked,  finalf  is  applied  to  no  arguments;  if  finalf  is  a 
FALSE,  MAPF  returns  (FFALSE  (). 


10.2.2.  MAPR  [I] 

<MAPR  finalf  loopf  si  s2  ...  sN~> 

acts  just  like  MAPF,  but.  instead  of  applying  loopf  to  NTHs  of  the  structures  - that  is,  <NTH  si  1>, 
<NTH  si  2>,  etc.  - it  applies  it  to  RESTs  of  the  structures  --  that  is,  <REST  si  0>,  <REST  si  1>,  etc. 

10.2.3.  Examples  [I] 

Make  the  element-wise  sum  of  two  LISTs: 

<MAPF  .LIST  ,+  ’(1  234)  ’(10  11  12  13)>S 
(11  13  15  17) 
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* 


I 


‘ 


Chang,  a UVFCTOR  to  contain  double  its  values: 

<SE T UV  1 • £ 5 6 7 8 9]>$ 

'[5  G 7 R 9'  ] 

<MAPR  <> 

^FUNCTION  ((L)  <PUT  .L  1 <*  <1  .L>  2») 

.UV>S 

I [ 10!  ] 

.11  VS 

![10  12  14  16  18!] 

Create  a STRING  from  CHARACTERS: 

<MAPF  .STRING  1 '[ "MODELING"  "DEVELOPMENT"  "LIBRARY" ]>$ 

"MDL" 

Sum  the  squares  of  the  elements  of  a UVECTOR: 

<MAPF  .♦  (-FUNCTION  ( (N)  <*  .N  .N>)  ' ![3  4]>S 

25 

A parallel  assignment  FUNCTION  (Note  that  the  arguments  to  MAPF  are  of  different  lengths.): 

<DFF INr  PSET  ("TUPLE"  TUP) 

<MAPF  <> 

,SET 

.TUP 

<REST  .TUP  </  < LENGTH  .TUP>  2»»$ 

PSET 

<PSET  A B C 1 2 3>S 
3 

.AS 

1 

,B$ 

2 

.CS 

3 

Note:  it  is  easy  to  forget  that  firutlf  must  evaluate  its  arguments,  which  precludes  the  use  of  an 
FSUBR.  It  is  primarily  for  this  reason  that  the  SUBRs  AND?  and  OR?  were  invented.  As  an  example, 
the  predicate  =?  could  have  been  defined  this  way: 
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<DEFINE  = ? (A  B) 

<COND  (< MONAD?  .A>  <==?  .A  .B>) 

(<AND  <NOT  < MONAD?  .B» 

<==?  <TYPE  .A>  <TYPE  .B» 

<==?  <LEN6TH  .A>  < LENGTH  .B»> 

<MAPF  .AND?  , = ? .A  .B>)» 

[By  the  way.  the  following  shows  how  to  construct  a value  that  has  the  same  TYPE  as  an  argument. 
<DEFINE  MAP-NOT  (S) 

<COND  (<MFMQ  <PRIMTYPE  .S>  ' ([LIST  VECTOR  UVECTOR  STRING]) 

<CHTYPE  <MAPF  ,<PRIMTYPE  .S>  .NOT  .S> 

<TYPE  .S»)» 

It  works  because  the  ATOMs  that  name  the  common  STRUCTURED  PRIMTYPEs  (LIST,  VECTOR. 
UVECTOR  and  STRING)  have  as  GVALs  the  corresponding  SUBRs  to  build  objects  of  those  TYPEs.] 


10.3.  More  on  MAPF  and  MAPR 


10.3.1.  MAPRtl 

MAPRET  is  a SUBR  that  enables  the  loop f being  used  in  a MAPR  or  MAPF  (and  lexically  within  it,  that  is, 
not  separated  from  it  by  a function  call)  to  return  from  zero  to  any  number  of  values  as  opposed  to 
just  one.  For  example,  suppose  a MAPF  of  the  following  form  is  used: 

<MAPF  .LIST  FUNCTION  (E)  ...>  ...> 

Now  suppose  that  the  programmer  wants  to  add  no  elements  to  the  final  LIST  on  some  calls  to  the 
FUNCTION  and  add  many  on  other  calls  to  the  FUNCTION.  To  accomplish  this,  the  FUNCTION  simply 
calls  MAPRET  with  the  elements  it  wants  added  to  the  LIST.  More  generally,  MAPRET  causes  its 
arguments  to  he  added  to  the  final  TUPLE  of  arguments  to  which  the  finalf  will  be  applied. 

Warning:  MAPRET  is  guaranteed  to  work  only  if  it  is  called  from  an  explicit  FUNCTION  which  is  the 
second  argument  to  a MAPF  or  MAPR.  In  other  words,  the  second  argument  to  MAPF  or  MAPR  must  be 
^FUNCTION  (...)  or  FUNCTION  . . .>  if  MAPRET  is  to  be  used. 

Example:  the  following  returns  a LIST  of  all  the  ATOMs  in  an  OBLIST  (chapter  15): 

<DEFINE  ATOMS  (00) 

<MAPF  .LIST 

< FUNCTION  (BKT)  <MAPRET  ! .BKT» 

.0B» 

10.2.3  • 10.3.1  Looping 


The  MIX.  Programming  Language 


95 


10.3.2.  MAPS  1 OP 

MAPSTOP  is  t lir  samp  as  MAPRE  T,  except  that,  after  adding  its  arguments,  if  any.  to  the  final  TUPLE, 
it  fours  the  application  of  to  occur,  whether  or  not  the  structured  objects  have  run  out  of 
elements.  I sample:  t he  following  copies  the  first  ten  (or  all)  elements  of  its  argument  into  a LIST : 

<0ri  INI  F 1RSI-IEN  (S1RUC  "AUX"  (I  10)) 

<MAPF  .LIST 

(FUNCTION  (C) 

<C0ND  ( <0 ? <SE T I <-  .1  1»>  <HAPST0P  .E>)> 

.E> 

,STRIIC>> 


10.3  3.  MAPI  I AVI 

MAPI E AVI  is  analogous  to  R|  ltlRN,  except  that  it  works  in  (lexically  within)  MAPF  or  MAPR  instead  of 
PROG  or  RE  PI  AT . It  flushes  the  accumulated  TUPLE  of  results  and  returns  its  argument  (optional.  T 
by  default)  as  the  value  of  the  MAPI  or  MAPR.  (It  finds  the  MAPF/R  that  should  return  in  the  current 
binding  of  the  A10II  I MAP\  ! - INTERRUPTS  ("last  map").)  Example:  the  following  finds  and  returns 
the  first  non-rero  element  of  its  argument,  or  #rALSE  ( ) if  there  is  none: 

< DEFINE  FIRST-NO  (STRUC) 

(MAPF  <> 

(FUNCTION  (X) 

CCONll  (<N=*?  .X  0>  (MAPLEAVE  .X>)» 

. STRUC>> 


10.3. 1.  Only  two  arguments 

If  MAPr  or  MAPR  js  given  only  two  arguments,  the  iteration  function  loopf  is  applied  to  no  arguments 
each  time,  and  the  looping  continues  indefinitely  until  a MAPLEAVE  or  MAPSTOP  is  invoked. 
Example:  the  following  returns  a l IS1  of  the  integers  from  one  less  than  its  argument  to  aero. 

(DEFINE  l NUN  (N) 

<MAPF  . I 1ST 

(FUNCTION  () 

(C0ND  ((0?  (SFT  N (-  ,N  1>»  (MAPSTOP  0>) 

(ELSE  ,N)>>» 

One  principle  use  of  this  form  of  MAPF/R  involves  processing  input  characters,  in  cases  where  you 
don’t  know  how  many  characters  are  going  to  arrive.  The  example  below  demonstrates  this,  using 
SlIBRs  which  are  more  fully  explained  in  chapter  II.  Another  example  can  be  found  in  chapter  13. 
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Example:  the  following  FUNCTION  reads  characters  from  the  current  input  channel  until  an  S (ESC) 
is  read,  and  then  returns  wl.at  was  read  as  one  STRING.  (The  SUBR  READCHR  reads  one  character  from 

the  input  channel  and  returns  it.  NEXTCHR  returns  the  next  CHARACTER  which  REAOCHR  will  return  - 
chapter  II.) 

<DEf INL  KDSTK  () 

<HAPF  .STRING 

FUNCTION  ()  <COND  (<NOT  <«?  <NEXTCHR>  <ASCII  27»> 

<READCHR>) 

(T 

<HAPSTOP>)»»S 

RDSTR 

<PROG  ()  <READCHR>  ;"Flush  the  ESC  ending  this  input.* 

<RDSTR»S 

ABC 1?3<*  3 4>S"ABC1?3<*  3 4>* 


10.3.5.  STACKFORM 

The  FSUBR  STACK!  OUM  is  archaic,  due  to  improvements  in  the  implementation  of  MAPF/R.  and  it 
should  not  be  used  in  now  programs. 


<S1ACKI0RM  (unction  ar g pred'f 
is  exactly  equivalent  to 
<MAPf  function 

< FUNCTION  ()  <C0ND  ( pred  arg)  (T  <MAPST0P>)»> 

In  fact  MAPF/R  is  more  powerful,  because  MAPRET.  MAPSTOP,  and  MAPLEAVE  provide  flexibility  not 
available  with  STACK! ORH. 


10.4.  GO  and  I AG 


GO  is  provided  in  MDL  for  people  who  can’t  recover  from  a youthful  experience  with  Basic.  Fortran. 
PL/I.  etc.  I he  SMBRs  previously  described  in  this  chapter  are  much  more  tasteful  for  making  good, 
clean,  structured”  programs.  GO  just  bollixes  things. 


GO  is  a SUBR  which  allows  you  to  break  the  normal  order  of  evaluation  and  re-start  just  before  any 
top-level  expression  in  a PROG  or  REPEAT.  It  can  take  two  TYPEs  of  arguments:  ATOM  or  TAG. 
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Given  .an  AIOM,  (.0  searches  l lie  body  of  the  immediately  surrounding  PROG  or  REPEAT  within  the 
current  Function.  Mailing  after  ai/>.  for  an  occurrence  of  that  ATOM  at  the  top  level  of  body.  (Thi» 
search  is  rlfeclively  a MIMQ.)  If  it  doesn’t  find  the  AIOM,  an  error  occurs.  If  it  does,  evaluation  is 
resumed  at  the  expression  following  the  ATOM. 

1 he  SlllTR  1 AG  generates  and  returns  objects  of  TYPE  TAG.  This  SUBR  takes  one  argument:  an  ATOM 
which  would  he  a legal  argument  for  a GO.  An  object  of  TYPE  TAG  contains  sufficient  information 
to  allow  you  to  (.0  to  any  top-level  position  in  a PROG  or  REPEAT  from  within  any  function  called 
inside  (he  PROG  or  REPEAT . GO  with  a TAG  is  vaguely  like  AGAIN  with  an  ACTIVATION;  it  allows  you 
to  "go  hack"  to  the  middle  of  any  PROG  or  REPEAT  which  called  you.  Also  like  ACTIVATIONS.  TAGs 
into  a PROG  or  Rf  PEAT  can  no  longer  be  used  after  the  PROG  or  REPEAT  has  returned.  LEGAL?  can  be 
used  to  see  if  a I AG  is  still  valid. 


10.5.  Looping  versus  Recursion 

Since  any  program  in  MDL  can  be  called  recursively,  champions  of  "pure  Lisp"  (Moon,  197*1)  or 
sonirsurh  may  he  tempted  to  implement  any  repetitive  algorithm  using  recursion.  The  advantage 
of  the  looping  techniipies  desciihed  in  this  chapter  over  recursion  is  that  the  overhead  of  calls  is 
eliminated.  However,  a long  program  (say.  bigger  than  half  a printed  page)  may  be  more  difficult 
to  write  iteratively  than  recursively  ami  hence  more  difficult  to  maintain.  A program  whose 
repetition  is  controlled  by  a structured  ob  ject  (for  example,  "walking  a tree"  to  visit  each  monad  in 
the  object)  often  should  use  looping  for  covering  one  "level"  of  the  structure  and  recursion  to  change 
levels  . 
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Chapter  11.  Input/Output 

The  MDL  interpreter  can  transmit  information  between  an  object  in  MDL  and  an  external  device 
in  three  ways.  Historically,  the  first  svay  was  to  convert  an  object  into  a string  of  characters,  or 
vice  versa.  The  transformation  is  nearly  one-to-one  (although  some  MDL  objects,  for  example 
TUPLEs.  cannot  he  input  in  this  way)  and  is  similar  in  style  to  Fortran's  formatted  I/O.  It  is  what 
READ  and  PR1N1  do.  and  it  is  t lie  normal  method  for  terminal  I/O. 

The  second  way  is  used  for  the  contents  of  MDL  objects  rather  than  the  objects  themselves.  Here 
an  linage  of  numbers  or  characters  within  an  object  is  transmitted,  similar  in  style  to  Fortran’s 
unformatted  I/O. 

The  third  way  is  to  dump  an  object  in  a clever  format  so  that  it  can  be  reproduced  exactly  when 
input  the  next  time.  Exact  reproduction  means  that  any  sharing  between  structures  or  self- 
reference is  preserved:  only  the  garbage  collector  itself  can  do  I/O  in  this  way. 


ILL  Conversion  I/O 

All  conversion-l/O  SlIBRs  in  MDL  take  an  optional  argument  which  directs  their  attention  to  a 
specific  I/O  channel.  This  section  will  describe  SUBRs  without  their  optional  arguments.  In  this 
situation,  they  all  refer  to  a particular  channel  by  default,  initially  the  terminal  running  the  MDL. 
When  given  an  optional  argument,  that  argument  follows  any  arguments  indicated  here.  Some  of 
these  SUBRs  also  have  additional  optional  arguments,  relevant  to  conversion,  discussion  of  which  will 
be  deferred  until  later. 


1 1.1.1.  Input 

All  of  the  following  input  Subroutines,  when  directed  at  a terminal,  hang  until  S (ESC)  is  typed  and 
allow  normal  use  of  rubout,  AD,  AL  and  A@. 
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II  I. LI.  Rl  AO 

<REAP> 

This  returns  the  entirr  M 01.  object  whose  character  representation  is  next  in  the  input  stream. 
Successive  <RI  AO>s  return  successive  objects.  This  is  precisely  the  SUBR  REAO  mentioned  in  chapter 
2.  See  also  sections  11.3.  15.7.1.  and  17.1.3  for  optional  arguments. 

II.  1.1.2.  Rr AoriiR 

< RE  APC.HR  > 

("read  character”)  returns  the  next  CHARACTER  in  the  input  stream.  Successive  <READCHR>s  return 
successive  CHARACTERS. 

II. 1.1.3.  NEXTCIIR 

<NEXTCHR> 

(“next  character")  returns  the  CHARACTER  which  REAOCHR  will  return  the  next  time  REAOCHR  is  called. 
Multiple  < NEXTCIIR >s.  with  no  input  operations  between  them,  all  return  the  same  thing. 


II. 1.2.  Output 

If  an  object  to  be  output  requires  (or  can  tolerate)  separators  within  it  (for  example,  between  the 
elements  in  a structured  object  or  after  the  TYPE  name  in  # notation  ),  these  conversion-output 
SUBRs  will  use  a carriagc-rcturn/line-fccd  separator  to  prevent  overflowing  a line.  Overflow  is 
detected  in  advance  from  elements  of  the  CHANNEL  in  use  (section  11.28). 

11.1.2. 1.  PRINT 

< PRINT  an>> 

This  outputs,  in  order. 

(1)  a carriage-return  line-feed. 

(2)  the  character  representation  of  EVAL  of  its  argument  (PRINT  is  a SUBR),  and 

(3)  a space 

and  then  returns  EVAL  of  its  argument.  This  is  precisely  the  SUBR  PRINT  mentioned  in  chapter  2. 

11.1.2.2.  PRIN1 

< PR  INI  ant  > 

outputs  just  the  representation  of,  and  returns,  EVAL  of  any. 
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II.I.U  PR  INC 

< PR INC  an)  > 

("prim  characters")  acts  exactly  like  PRIN1,  except  that 

(1)  if  its  argument  is  a STRING  or  a CHARACTER,  it  suppresses  the  surrounding  ■$  or  initial  «\ 
respectively:  or. 

(2)  if  its  argument  is  an  ATOM,  it  suppresses  any  \s  or  OflLIST  trailers  (chapter  15)  which  would 
otherwise  lie  necessary. 

,f  PRINC  s argument  is  a structure  containing  STRINGS.  CHARACTERS,  or  ATOMs.  the  service  mentioned 
will  be  done  for  all  of  them.  Ditto  for  the  ATOM  used  to  name  the  TYPE  in  "#  notation". 

11.1.2.4.  TERPRI 

<TERPRI> 

( terminate  printing  ) outputs  a carriage-return  line-feed  and  then  returns  AFALSE  ( )! 

11. 1.2.5.  CRLF 

<CRLF> 

( carriage-return  line  feed")  outputs  a carriage-return  line-feed  and  then  returns  T. 

11.1.2.6.  FLATSIZE 


< F l ATSIZF  any  max.//x  radix:f/x> 

does  not  actually  cause  any  output  to  occur  and  does  not  take  a CHANNEL  argument.  Instead,  it 
compares  mav  with  the  number  of  characters  PRIN1  would  take  to  print  any.  If  max  is  less  than  the 
number  of  characters  needed  (including  the  case  where  any  is  self-referencing).  FLATSIZE  returns 
PFALSE  ();  otherwise,  it  returns  the  number  of  characters  needed  to  PRIN1  any.  radix  (optional,  ten 
by  default)  is  used  for  converting  any  FIXcs  that  occur. 

This  SUBR  is  especially  useful  in  conjunction  with  (section  11.2.8)  those  elements  of  a CHANNEL 
which  specify  the  number  of  characters  per  output  line  and  the  current  position  on  an  output  line. 
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11.2.  CHANNI  L (Hie  TYPE) 

I/O  channels  are  dynamically  assigned  in  MDL.  and  are  represented  by  an  object  of  TYPE  CHANNEL, 
which  is  of  PR1NIYPE  VECTOR.  The  format  of  a CHANNEL  will  be  explained  later,  in  section 
11.2  8.  First,  how  to  generate  and  use  them. 


11.2.1.  OPiN 


<OPfN  mode  iile-spec> 


or 


<OPfN  mode  name  l name2  device  dir  > 


OPEN  is  a SllBR  which  creates  and  returns  a CHANNEL.  All  its  arguments  must  be  of  TYPE  STRING, 
and  all  arc  optional.  The  preceding  statement  is  false  when  the  device  is  " INT " or  “NET";  see 
sections  119  and  11.10  If  the  attempted  opening  of  an  operating-system  I/O  channel  fails.  OPEN 
returns  *t  Al  M {rp.**on:string  file-spec:strmg  statusdix) , where  the  reason  and  the  status  are 
supplied  by  the  operating  system,  and  the  file-spec  is  the  standard  name  of  the  file  (after  any  name 
transformations  by  the  operating  system)  that  MDL  was  trying  to  open. 


The  choice  of  mode  is  usually  determined  by  which  SUBRs  will  be  used  on  the  CHANNEL,  and  whether 
or  not  the  de\icc  is  a terminal.  The  following  table  tells  which  SUBRs  can  be  used  with  which  modes, 
where  OK  indicates  an  allowed  use: 


•READ"  “PRINT"  "RfADB"  "PR1NTB"  mode  / SUBRs 

“PRINTO" 


OK 


OK 


READ  READCMR  NEXTCHR  READSTRING  FILECOPY  FILE-LENGTH 
LOAO 


OK 

OK 

* PRINT  PRINI 

PRINTSTRING 

OK 

READB  GC-READ 

OK 

PRINTB  GC-DUHP 

OK 

OK 

OK 

ACCESS 

OK  OK 

OK 

OK 

RESET 

OK  OK 

ECHOPAIR 

OK 

TTYECHO  TYI 

* PRINTing  (or 

PR  IN  ling 

) an 

RSUBR  (chapter  19)  on  a 

effects. 


"PR  IN  IB"  differs  from  "PRINTO"  in  that  the  latter  mode  is  used  to  update  a "DSK"  file  without 
copying  it.  "READB"  and  "PRINIB"  are  not  used  with  terminals.  "READ"  is  the  mode  used  by 
default. 
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The  next  one  to  four  arguments  to  OPEN  specify  the  file  involved.  If  only  one  STRING  is  used,  it 
can  contain  the  entire  specification,  according  to  standard  operating-system  syntax.  Otherwise,  the 
string(s)  are  interpreted  as  follows: 

name l is  the  first  file  name,  that  part  to  the  left  of  the  space  (in  the  ITS  version)  or  period  (in  the 
Tenex  and  Tops-20  versions).  The  name  used  by  default  is  <VALUE  NM1>,  if  any.  otherwise 
•INPUT". 

name?  is  the  second  file  name,  that  part  to  the  right  of  the  space  (ITS)  or  period  (Tenex  and  Tops- 
20).  Thr  name  used  hy  default  is  CVALUC  NM2>,  if  any,  otherwise  ■>•  (ITS)  or  *MUD"  and  highest 
version  number  (Tenex)  or  generation  number  (Tops-20). 

device  is  the  device  name.  The  name  used  by  default  is  <VALUE  DEV>,  if  any.  otherwise  "DSK". 
(Devices  about  which  MDL  has  no  special  knowledge  are  assumed  to  behave  like  ■OSH".) 

d<r  is  the  disk-directory  name.  The  name  used  by  default  is  <VALUE  SNM>,  if  any.  otherwise  the 
"working-directory"  name  as  defined  by  the  operating  system. 

Examples: 

<OPEN  "PRINT"  "TPL:">  opens  a conversion-output  CHANNEL  to  the  TPL  device. 

<OPEN  "PRINT"  "DUMMY"  "NAMES"  " TPL" > does  the  same. 

<OPEN  "PRINT"  "TPL">  opens  a CHANNEL  to  the  file  DSK :TPL  > (ITS  version)  or  DSK:TPL.HUD 
(Tenex  and  Tops-20  versions). 

<OPEN  "READ"  "TOO"  ">"  "DSK"  "GUEST" > opens  a conversion-input  CHANNEL  to  the  given  file. 
<OPEN  "READ"  "GUEST ;F00" > does  the  same  in  the  ITS  version. 


11.2.2.  OPEN-NR 


OPEN-NR  is  the  saute  as  OPEN,  except  that  the  date  and  time  of  last  reference  of  the  opened  file  are 
not  changed. 


11.2.3.  CHANNEL  (the  SUBR) 

CHANNEL  is  called  exactly  like  OPEN,  but  it  always  returns  an  unopened  CHANNEL,  which  can  later  be 
opened  by  RESET  (below)  just  as  if  it  had  once  been  open. 
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ii  2.4.  riir-cxisis’ 

F ILE-EXIS1S7  tests  for  the  existence  of  a file  without  creating  a CHANNEL,  which  occupies  about  a 
hundred  machine  words  of  storage.  It  takes  file-name  arguments  just  like  OPEN  (but  no  mode 
argument)  and  returns  cither  I or  tT ALSE  ( reason.-strmg  statuses),  where  the  reason  and  the  status 
are  supplied  by  the  operating  system.  The  date  and  time  of  last  reference  of  the  file  are  not 
changed 


11.2.5  CLOSl 

< CLOSE  channel) 

closes  channel  and  returns  us  argument,  with  its  "state"  changed  to  "closed*.  If  channel  is  for  output, 
all  buffered  output  is  wiitten  out  first.  No  harm  is  done  if  channel  is  already  CLOSEd. 


11.2  6.  CHANL1ST 

< Cl  I AN  LIST > 

returns  a l 1ST  whose  elements  are  all  the  currently  open  CHANNELS.  The  first  two  elements  are 
usually  , INCIIAN  and  .OIITCHAN  (see  below).  A CHANNEL  not  referenced  by  anything  except 
<CHANLIS1>  will  lie  CLOSEd  during  gaibage  collection. 


11.2.7.  INCIIAN  and  OIITCHAN 

The  channel  used  by  default  for  input  SUBRs  is  the  local  value  of  the  ATOM  INCHAN.  The  channel 
used  by  default  for  output  SUBRs  is  the  local  value  of  the  ATOM  OUTCHAN. 

You  can  direct  I/O  to  a CHANNEL  by  SETting  INCHAN  or  OUTCHAN  (remembering  their  old  values 
somewhere!,  or  by  giving  the  SlIRR  you  wish  to  use  an  argument  of  TYPE  CHANNEL.  (These  actually 
have  the  same  effect,  because  READ  binds  INCHAN  to  an  explicit  argument,  and  PRINT  binds  OUTCHAN 
similarly.  Tims  the  CHANNEL  being  used  is  available  for  READ  macros  (section  17.1)  and  PRINTTYPEs 
(section  6.4.  IT) 

By  the  way,  a good  trick  for  playing  with  INCHAN  and  OUTCHAN  within  a function  is  to  use  the  ATOMs 
INCIIAN  and  OUTCHAN  as  "AUX"  variables,  re-binding  their  local  values  to  the  CHANNEL  you  want. 
When  you  leave,  of  course,  the  old  LVALs  are  restored  (which  is  the  whole  point).  The  ATOMs  must  be 
declared  SPECIAL  (chapter  14)  for  this  trick  to  compile  correctly. 

INCIIAN  and  OUTCHAN  also  have  global  values,  initially  the  CHANNELS  directed  at  the  terminal  running 
MDL.  Initially.  INCHAN’s  and  OIITCIIAN's  local  and  global  values  are  the  same. 
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11.2  9.  Contents  of  CHANNELS 


The  contents  of  an  object  of  TYPE  CHANNEL  are  referred  to  by  the  I/O  SUBRs  each  time  auch  a SUBR 
i»  «»ed  If  yon  change  the  rontrnti  of  a CHANNEL  (for  example,  with  PUT),  the  next  use  of  that 
CHANNEL  will  be  changed  appropriately.  Some  elements  of  CHANNELS,  however,  should  be  played  with 
seldom,  if  ever,  and  only  at  your  peril.  These  are  marled  below  with  an  ♦ (asterisk).  Caveat  user. 

There  follows  .»  table  of  the  contents  of  a CHANNEL,  the  TYPE  of  each  element,  and  an  interpretation. 
The  format  used  is  the  following: 
element  - nun, her : type  inter  pretftion 


1 1.2.9. 1.  Output  CIIANNI  Is 

The  contents  of  a CHANNEL  used  for  output  are  as  follows: 


-1:  LIST 

transcript  chauucl(s)  (see  below) 

• 0:  varies 

device-dependent  information 

♦ 1:  FIX 

channel  number  (ITS)  or  JFN  (Tenex  and  Tops-! 

• 2:  STRING 

mode 

• 5:  SIRING 

first  file  name  argument 

♦ 4:  STRING 

second  file  name  argument 

• 5:  STRING 

device  name  argument 

♦ & STRING 

directory  name  argument 

• 7:  STRING 

real  first  file  name 

♦ 9:  STRING 

real  second  file  name 

• 9:  STRING 

real  device  name 

»I0:  STRING 

real  directory  name 

*11:  FIX 

various  status  bits 

♦ 12:  FIX 

PDP-10  instruction  used  to  do  one  I/O  operation 

15:  FIX 

number  of  characters  per  line  of  output 

14:  FIX 

current  character  position  on  a line 

15:  FIX 

number  of  lines  per  page 

16:  FIX 

current  line  number  on  a page 

17:  FIX 

access  pointer  for  file-oriented  devices 

18:  FIX 

radix  for  F IX  conversion 

19:  FIX 

sink  for  an  internal  CHANNEL 

N B : The  elements  of  a CHANNEL  below  number  I are  usually  invisible  but  are  obtainable  via  <NTH 
OOP  channel')  fi»>,  for  some  appropriate  fnr. 

The  transcript-channels  slot  has  this  meaning:  if  this  slot  contains  a LIST  of  CHANNELS,  then 
anything  input  or  output  on  the  original  CHANNEL  is  output  on  these  CHANNELS.  Caution:  do  not  use 
a CHANNFL  as  its  own  transcript  channel;  you  probably  won't  live  to  tell  about  it. 
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11.2.8.2.  Input  CHANNELS 


Tlie  contents  of  the  elements  up  to  number  12  of  a CHANNEL  used  for  input  are  the  same  as  that  for 
output.  The  remaining  elements  are  as  follows  ((same)  indicates  that  the  use  is  the  same  as  that  for 
output): 


13:  varies 
*14:  FIX 
*15:  FIX 
16:  LIST 
17:  FIX 
18:  FIX 
19:  STRING 


object  evaluated  when  end  of  file  is  reached 
one  "look-ahead”  character,  used  by  READ 
PDP-10  instruction  executed  waiting  for  input 
queue  of  buffers  for  input  from  a terminal 
access  pointer  for  file-oriented  devices  (same) 
radix  for  FIX  conversion  (same) 
buffer  for  input  or  source  for  internal  CHANNEL 


11.3.  End-of-Filc  "Routine" 


As  mentioned  above,  an  explicit  CHANNEL  is  the  first  optional  argument  of  all  SUBRs  used  for 
conversion  I/O.  The  second  optional  argument  for  conversion-input  SUBRs  is  an  “end-of-file 
routine"  - that  is.  something  for  the  input  SUBR  to  EVAL  and  return,  if  it  reaches  the  end  of  the  file 
it  is  reading.  A typical  end-of-file  argument  is  a QUOTEd  FORM  which  applies  a function  of  yours. 
The  value  of  this  argument  used  by  default  is  a call  to  ERROR.  Note:  the  CHANNEL  has  been  CLOSEd 
by  the  time  this  argument  is  evaluated. 

Example:  tlir  following  FUNCTION  counts  the  occurrences  of  a character  in  a file,  according  to  its 
arguments.  The  file  names,  device,  and  directory  are  optional,  with  the  usual  names  used  by  default. 

<DCriNE  COUNT-CHAR 

(CHAR  "TUPLE"  FILE  "AUX"  (CNT  0)  (CHN  <0PEN  "READ*  !.FILE>)) 

<C0ND  (.CHN  ; "If  CHN  is  FALSE,  bad  OPEN:  return  the  FALSE 

so  result  can  be  tested  by  another  FUNCTION." 

<RCPEAT  () 

< AND  <==?  .CHAR  <REA0CHR  .CHN  *<RETURN>» 

<SET  CNT  <+  1 .CNT»» 

; "Unti 1 EOF,  keep  reading  and  testing  a character  at  a time." 
.CNT  ;"Then  return  the  count. ")>> 
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11.4.  Imaged  I/O 


11.4.1.  Input 

11.4.1.1.  READB 

< READB  buffer. wee  tor -or -storage  channel  eof:any> 

The  channel  must  he  open  in  "REAOB"  mode.  READB  will  read  as  many  36-bit  binary  words  as 
necessary  to  fill  the  buffer  (whose  UTYPE  must  be  of  PRIMT YPE  WORD),  unless  it  hits  the  end  of  file. 
READB  returns  the  number  of  words  actually  read,  as  a FIXed-point  number.  This  will  normally  be 
the  length  of  the  buffer,  unless  the  end  of  file  was  read,  in  which  case  it  will  be  less,  and  only  the 
beginning  of  buffer  will  have  been  filled  (SUBSTRUC  may  help).  An  attempt  to  READB  again,  after 
buffer  is  not  filled,  will  evaluate  the  end-of-file  routine  eof,  which  is  optional,  a call  to  ERROR  by 
default.  J 

11.4.1.2.  READSTRING 

<READNIRING  buffer .string  channel  stopJix-or-string  eof> 

is  the  STRING  analog  to  READB,  where  buffer  and  eof  are  as  in  READB,  and  channel  is  any  input 
CHANNEL  ( . INCIIAN  by  default),  stop  tells  when  to  stop  inputting:  if  a FIX,  read  this  many 
CHARACTERS  (fill  up  buffer  by  default):  if  a STRING,  stop  reading  if  any  CHARACTER  in  this  STRING  is 
read  (don't  include  this  CHARACTER  in  final  STRING). 


1 1.4.2.  Output 

11.4.2.1.  PRINTB 

<PRINTB  buffer  wee  tor -or -storage  channel > 

This  call  writes  the  entire  contents  of  the  buffer  into  the  specified  channel  open  in  "PRINTB"  or 
"PRINTO"  mode.  It  returns  buffer. 

11.4.2.2.  PRINTSTRING 

<PRINTSTRTNG  buff er -.string  channel  count  .-fix') 

is  analogous  to  READSTRING.  It  outputs  buffer  on  channel,  either  the  whole  thing  or  the  first  count 
characters,  and  returns  the  number  of  characters  output. 
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II. 4.2.3.  IMAGE 

<IMAGC  fix  channel) 

is  a rather  special-purpose  SUBR.  When  any  conversion-output  routine  outputs  an  ASCII  control 
character  (with  special  exceptions  like  carriage-returns,  line-feeds,  etc.),  it  actually  outputs  two 
characters:  * (circumflex),  followed  by  the  upper-case  character  which  has  been  control-shifted. 
IMAGE,  on  the  other  hand,  always  outputs  the  real  thing:  that  ASCII  character  whose  ASCII  7-bit 
code  is  fix.  It  is  guaranteed  not  to  give  any  gratuitous  line-feeds  or  such,  channel  is  optional, 
.OUTCHAN  by  default,  and  its  slots  for  current  character  position  (number  14)  and  current  line 
number  (16)  are  not  updated.  IMAGE  returns  fix. 


11.5.  Dumped  I/O 


11.5.1.  Output:  GC-DUMP 

<GC-DUMP  any  pnntbxhannel-or-false) 

dumps  any  on  pnnth  in  a clever  format  so  that  GC-READ  (below)  can  reproduce  any  exactly,  including 
sharing.  an\  cannot  live  on  the  control  stack,  nor  can  it  be  of  PRIMTYPE  PROCESS  or  LOCO  or  ASOC 
(which  see)  any  is  returned  as  a value. 

If  print b is  a CHANNEL,  it  must  be  open  in  "PRINTB"  or  "PRINTO"  mode.  If  printb  is  a FALSE, 
GC -DUMP  instead  returns  a UVECTOR  (of  UTYPE  PRIMTYPE  WORD)  that  contains  what  it  would  have 
output  on  a CHANNEL.  This  UVECTOR  can  be  PRINTBed  anywhere  you  desire,  but,  if  it  is  changed  in 
any  svay.  GC-READ  will  not  be  able  to  input  it.  Probably  the  only  reason  to  get  it  is  to  check  its 
length  heforr  output. 

Except  for  the  miniature  garbage  collection  required,  GC-DUMP  is  about  twice  as  fast  as  PRINT,  but 
the  amount  of  external  storage  used  is  two  or  three  times  as  much. 


11.5.2.  Input:  GC-READ 

< GC-READ  readbxhannel  eof.any) 

returns  one  ob  ject  from  Hip  channel,  which  must  be  open  in  "READB"  mode.  The  file  must  have  been 
produced  by  GC-DUMP.  eof  is  optional.  GC-READ  is  about  ten  times  faster  than  READ. 
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11.6.  SAVE  Files 

The  entire  state  of  MDI  can  be  saved  away  in  a file  for  later  restoration:  this  is  done  with  the  SUBRs 
SAVE  and  RESIORf  . This  is  a very  different  form  of  I/O  from  any  mentioned  up  to  now;  the  file 
used  contains  an  actual  image  of  your  MDL  address  space  and  is  not.  in  general,  "legible*  to  other 
MDL  routines.  Rt  S I OKI  ing  a SAVf  file  is  much  faster  than  re-READing  the  objects  it  contains. 

Since  a SAVf  file  does  not  contain  all  extant  MDL  objects,  only  the  impure  and  PURIFYed  (section 
‘22.9.2)  ones,  a change  to  the  interpreter  has  the  result  of  making  all  previous  SAVE  files  unusable. 
To  prevent  errors  from  aiisiug  from  this,  the  interpreter  has  a release  number,  which  is  incremented 
whenever  changes  air  installed.  The  current  release  number  is  printed  out  on  initially  starting  up 
the  program  and  is  available  as  the  GVAL  of  the  ATOM  MUDDLE.  This  release  number  is  written  out 
as  the  vet y first  part  of  each  SAVE  file.  If  RESTORE  attempts  to  re-load  a SAVE  file  whose  release 
nutuher  is  not  the  same  as  the  interpreter  being  used,  an  error  is  produced.  If  desired,  the  release 
number  of  a SAVf  file  can  he  obtained  by  doing  a READ  of  that  file.  Only  that  initial  READ  will 
work:  the  rest  of  the  file  is  not  ASCII. 


11.6.1.  SAVE 

<5AVE  file  spec  string  gc?:lilse-or-any> 


or 


<SAVE  o.inirt  name?  device  dir  gc’.ftlse-or-tny) 

saves  the  eutitc  state  of  your  MDL  away  in  the  file  specified  by  its  arguments,  and  then  returns 
"SAVED".  All  STRING  arguments  ate  optional,  with  "MUDDLE",  "SAVE",  "DSK" , and  <VALUE  SNM> 
used  by  default.  * u ’’  is  optional  and.  if  supplied  and  of  TYPE  FALSE,  causes  no  garbage  collection  to 
occur  before  SAVI  ing.  (fSAVI  is  ail  alias  for  SAVE  that  may  be  seen  in  old  programs.) 

If.  after  restoring.  RESTORl  finds  that  (VALUE  SNM>  is  the  null  STRING  (""),  it  will  ask  the  operating 
system  for  the  name  of  the  "working  directory"  and  call  SNAME  with  the  result.  This  mechanism  is 
handy  for  "public"  SAVI  files,  which  should  not  point  the  user  at  a particular  disk  directory. 

In  the  ITS  version,  the  file  is  actually  written  with  the  name  _MUDS_  > and  renamed  to  the 
argumrut(s)  only  when  complete,  to  prevent  losing  a previous  SAVE  file  if  a crash  occurs.  In  the 
Tenex  and  Tops-20  versions,  version/generation  numbers  provide  the  same  safety. 

Example: 
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<DEFINC  SAVE -IT  ("OPTIONAL" 

(FILE  '( "PUBLIC"  "SAVE"  "DSK"  "6UEST" ) ) 
"AUX"  (SNM  "")) 

<SETUP> 

<COND  (<=?  "SAVED"  <SAVE  ! .FILE»  ;"See  below." 
<CLEANUP> 

"Saved." ) 

(T 

<CRLF> 

<PRINC  "Amazing  program  at  your  service. "> 
<CRLF> 

<START-RUNNING>)» 


11.6.2.  RESTORE 

< RES  TORE  file-spec  > 


or 


<RESTORE  namel  name2  device  dir > 

replaces  the  entire  current  state  of  your  MDL  with  that  SAVEd  in  the  file  specified.  All  arguments 
are  optional,  with  the  same  values  used  by  default  as  by  SAVE. 

RESTORE  completely  replaces  the  contents  of  the  MDL,  including  the  state  of  execution  existing 
when  the  SAVE  was  done  and  the  state  of  all  open  I/O  CHANNELS.  If  a file  which  was  open  when  the 
SAVE  was  done  docs  not  exist  when  the  RESTORE  is  done,  a message  to  that  effect  will  appear  on  the 
terminal. 

A RESTORE  never  returns  (unless  it  gets  an  error):  it  causes  a SAVE  done  some  time  ago  to  return 
again  (this  time  with  the  value  "RESTORED"),  even  if  the  SAVE  was  done  in  the  midst  of  running  a 
program.  In  the  latter  case,  the  program  will  continue  its  execution  upon  RESTOREation. 


11.7.  Other  I/O  Functions 


11.7.1.  LOAD 

<LOAD  input -.channel  look-up> 

eventually  returns  "OONE".  First,  however,  it  READs  and  EVALs  every  MDL  object  in  the  file  pointed 
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to  by  input,  amt  then  CLOSE*  input.  Any  occurrences  of  rubout,  AD,  *L,  etc.,  in  the  file  are 
given  no  special  meaning:  they  are  simply  ATOM  constituents. 

look-up  is  optional,  used  to  specify  a LIST  of  OBLISTs  for  the  READ.  .OBLIST  is  used  by  default 
(chapter  15). 


11.7.2.  FLOAD 


<FLOAD  file-spec  !ook-up> 


or 


<FLOAD  riamel  name2  device  dir  look-up > 

("file  load")  acts  just  like  LOAD,  rxcept  that  it  takes  arguments  (with  values  used  by  default)  like 
OPEN,  OPLNs  the  CHANNEL  itself  for  reading,  and  CLOSES  the  CHANNEL  when  done,  look-up  is  optional, 
as  in  LOAO.  If  the  OPEN  fails,  an  error  occurs,  giving  the  reason  for  failure. 


11.7.3.  SNAME 

<SNAME  shine > ("system  name",  a hangover  from  ITS)  is  identical  in  effect  with  <SETG  SNM  string>, 
that  is.  it  causes  string  to  become  the  dir  argument  used  by  default  by  all  SUBRs  which  want  file 
specifications  (in  the  absence  of  a local  value  for  SNM).  SNAME  returns  its  argument. 

<SNAME>  is  identical  in  effect  with  <GVAL  SNM>,  that  is.  it  returns  the  current  dir  used  by  default. 


11.7.4.  ACCESS 

<ACCESS  channel  fix > 

returns  channel,  after  making  the  next  character  or  binary  word  (depending  on  the  mode  of  channel. 
which  should  not  be  "PRINT")  which  will  be  input  from  or  output  to  channel  the  (f/x«l)st  one  from 
the  beginning  of  ihe  file,  channel  must  be  open  to  a randomly  accessible  device  ("DSK",  "USR*, 
etc.).  A fix  of  0 positions  channel  at  the  beginning  of  the  file. 

11.7.5.  FILE-LENGTH 

CFILE-LENGTH  input  -.channel) 

returns  a FIX,  the  length  of  the  file  open  on  input.  This  information  is  supplied  by  the  operating 
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system.  and  it  may  not  be  available,  for  example,  with  the  "NET”  device  (section  11.10).  If  input ’s 
mode  is  "RIAD",  the  length  is  in  characters  (rounded  up  to  a multiple  of  five);  if  "READS",  in 
binary  words.  If  ACCESS  is  applird  to  input  and  this  length  or  more,  then  the  next  input  operation 
will  detect  the  end  of  file. 


11.7.6.  F II  EC.OI’Y 

<rillCOPY  input  xhannet  out  put -.channel) 

copies  characters  from  input  to  output  until  the  end  of  file  on  input  (thus  closing  input)  and  returns 
the  number  of  characters  copied.  Both  arguments  are  optional,  with  .INCHAN  and  .OUTCHAN  used  by 
default,  respectively.  The  operation  is  essentially  a READSTRING  - PRINTSTRING  loop.  Neither 
CHANNEL  need  be  freshly  OPENcd,  and  output  need  not  be  immediately  CLOSEd.  Restriction:  internally 
a <Fll.E-LI  NGTH  input > is  done,  which  must  succeed;  thus  FILECOPY  might  lose  if  input  is  a "NET" 
CHANNEL. 


11.7.7.  RESEI 

<RFSCT  channel > 

returns  channel,  after  "resetting"  it.  Resetting  a CHANNEL  is  like  OPENing  it  afresh,  with  only  the  file- 
name slots  preserved.  For  an  input  CHANNEL,  this  means  emptying  all  input  buffers  and,  if  it  is  a 
CHANNEL  to  a file,  doing  an  ACCESS  to  0 on  it.  For  an  output  CHANNEL,  this  means  returning  to  the 
beginning  of  the  file  --  which  implies,  if  the  mode  is  not  "PRINTO",  destroying  any  output  done  to 
it  so  far.  If  the  opening  fails  (for  example,  if  the  mode  slot  of  channel  says  input,  and  if  the  file 
specified  in  its  real-name  slots  does  not  exist).  RESET  (like  OPEN)  returns  #FALSE  ( reasomstring  file- 
spec  .-stems  status:fix ) . 


11.7.8.  BUFOUT 

< BUI  Oil  T out  put  channel) 

causes  all  internal  ML>L  buffers  for  output  to  be  written  out  and  returns  its  argument.  This  is 
helpful  if  the  operating  system  or  MDL  is  flaky  and  you  want  to  attempt  to  minimize  your  losses. 
The  output  may  be  padded  with  up  to  four  extra  spaces,  if  output's  mode  is  "PRINT". 


11.7.9.  RENAME 

RENAME  is  for  renaming  and  deleting  files.  It  takes  three  kinds  of  arguments: 

(a)  two  file  names,  in  either  single-  or  multi-STRING  format,  separated  by  the  ATOM  TO, 

(b)  one  file  name  in  either  format,  or 
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(cl  u CHANNEL  ami  a file  name  in  either  format  (only  in  the  ITS  version). 

Omitted  ■ ilr-tiatm-  part*,  use  me  same  values  by  default  as  does  OPEN.  If  the  operation  is  successful, 

RENAME  leiiirns  I,  otherwise  »IALSE  (rcitson.slrmj  st»lus:(ix) . 

In  case  tat  the  file  specified  by  the  first  argument  is  renamed  to  the  second  argument.  For  example: 

<IU  NAME  "FGO  3“  TO  "dAR" > ;"Renanie  F00  3 to  BAR  >.' 

In  case  (Id  the  single  file  name  specifies  a file  to  be  deleted.  For  example: 

<RENAMI  "F00  TOO  DSK : HARRY ; *>  ;"Delete  file  F00  FOO  from 

HARRY'S  directory." 

In  case  (c)  the  CIIANNI  I must  he  open  in  either  "PRINT"  or  "PRINTB"  mode,  and  a mu  me  while  open 
for  writing  is  attempted.  The  real-name  slots  in  the  CHANNEL  are  updated  to  reflect  any  successful 
change. 


11.8.  Term i tt a l_C.lt Aid IL Ls 

MDL  hel  laves  life  the  ITS  version  of  the  text  editor  Teeo  with  respect  to  typing  in  carriage-return, 
in  that  n automatic. illy  adds  a line-feed.  In  order  to  type  in  a lone  carriage-return,  a carriage-return 
follower  by  a rubout  must  be  typed.  Also  PRINT,  PRIN1  and  PRINC  do  not  automatically  add  a line- 
feed when  a carriage-return  is  output.  This  enables  overstriking  on  a terminal  that  lacks 
backspacing  capability.  It  also  means  that  what  goes  on  a terminal  and  what  goes  in  a file  are 
more  likely  to  look  the  same. 

In  the  ITS  version.  Mill  ’s  primary  terminal  output  channel  (usually  .OUTCHAN)  is  normally  not  in 
"display"  mode,  except  when  PRINCing  a STRING.  Thus  errors  will  rarely  occur  when  a user  is 
typing  in  text  containing  display-mode  control  codes. 

In  the  ITS  version.  Mill,  ran  start  up  without  a terminal,  give  control  of  the  terminal  away  to  an 
inferior  operating-system  ptocess  or  get  it  back  while  running.  Doing  a RESET  on  cither  of  the 
terminal  channels  causes  MDL  to  find  out  if  it  now  has  the  terminal;  if  it  does,  the  terminal  is 
rcoprmd  and  the  current  screen  size  and  device  parameters  are  updated.  If  it  doesn't  have  the 
terminal,  an  internal  flag  is  set.  causing  output  to  the  terminal  to  be  ignored  and  attempted  input 
from  the  terminal  to  make  the  opera,  .ng-system  process  go  to  sleep. 

In  the  . ,S  vr,  >u.  tin.  arc  some  p.«uliarilies  associated  with  pseudo-terminals  ("STY"  and  "Sin" 
devices).  If  the  t'HANNI  I given  to  Rl  I'DCIIR  is  open  in  "READ"  mode  to  a pseudo-terminal,  and  if  no 
input  is  as..ii.ible.  RI  AtiCHR  ..turns  .,  TYPl  FIX.  If  the  CHANNEL  given  to  READSTRING  is  open  in 
"READ"  mode  to  a psendo-tvi initial,  reeding  *«\«  stops  if  and  when  no  more  characters  are  available, 
that  is.  when  RfAndlK  would  return  -1. 
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11.8.1.  ECHOPAIR 

<ECH0PA1R  terminal -i nxhjnnel  terminal-outichannel > 

returns  its  first  aigunieiit,  aft;'r  making  the  two  CHANNELS  "know  about  each  other"  so  that  rubout, 
~3,  ami  ■*!.  mi  !■■■  mmal-in  will  cause  the  appropriate  output  on  terminal-out. 


11.8,2.  TTYrillO 

<TTY£CHO  terminal-input. -channel  precT> 

turns  the  echoing  of  typed  characters  on  channel  off  or  on,  according  to  whether  or  not  pred  is  of 
TYPE  E AIM. , and  returns  channel.  It  is  useful  in  conjunction  with  TYI  (below)  for  a program  that 
wanis  to  do  character  input  and  echoing  in  its  own  fashion. 


11.8.3.  TYI 


< TYI  terminal- input :channel> 

returns  one  CHARACTER  front  channel  (optional.  .INCHAN  by  default)  when  it  is  typed,  rather  than 
after  S (ESCi  is  typed,  as  is  the  case  with  READCHR.  The  following  example  echos  input  characters 
as  their  ASCII  values,  until  a carriage-return  is  typed: 

'REPEAT  ((F00  <TTYECHO  .INCHAN  <»)) 

<AND  < = = ? 13  <PRINC  < ASCI  I <TYI  .INCHAN»» 

< RETURN  <TTYECHO  .INCHAN  T»» 


11.9.  Internal  CHANNELS 

If  the  device  specified  in  an  OPEN  is  *'INT",  a CHANNEL  is  created  which  does  not  refer  to  any  I/O 
device  outside  MDL.  In  this  case,  the  mode  must  be  “READ"  or  "PRINT",  and  there  is  another 
argument,  which  must  he  a function. 

For  a "READ"  CHANNEL,  the  function  must  take  no  arguments.  Whenever  a CHARACTER  is  desired 
from  this  CHANNEL,  the  function  will  be  applied  to  no  arguments  and  must  return  a CHARACTER. 
This  will  occur  once  per  call  to  READCHR  using  this  CHANNEL,  and  several  times  per  call  to  READ.  In 
the  ITS  version.  Hie  function  ran  signal  that  its  "end-of-file"  has  been  reached  by  returning  <CHTYPE 
*777777000003*  CI1ARAC 1 FR>  (-1  in  left  half.  control-C  in  right),  which  is  the  standard  ITS  end-of- 
file  signal.  In  the  Tcncx  and  Tops-20  versions,  the  function  should  return  either  that  or  <CHTYPE 
*777777000032*  CHARACTER)  (-1  and  control-Z),  the  latter  being  their  standard  end-of-file  signal. 


11.8.1  - 11.9 


Input/Output 


IN 


The  MDL  Programming  Language 


For  a "PR  IN  I"  CIIANNI  l , the  function  mutt  take  one  argument,  which  will  be  a CHARACTER.  It  can 
dispose  of  its  argument  in  any  way  it  pirates.  The  value  returned  by  the  function  it  ignored. 

Example:  < 01*1  N "PRINT"  " IWT : ■ ,FCN>  opens  an  internal  output  CHANNEL  with  ,FCN  as  its 
character-gobbler. 


11.10.  The  "Ni  I"  Device:  the  ARI’A  Network 

The  "Nit"  device  i'  dilfeicut  hi  many  ways  from  conventional  devices.  In  the  ITS  version,  it  is 
the  only  device  besides  "INI"  that  does  not  take  all  strings  as  its  arguments  to  OPEN,  and  it  must 
take  an  additional  optional  argument  to  specify  the  byte  sire  of  the  socket.  The  format  of  a call  to 
open  a network  socket  is 

- OPI  N i t{sie:stnng  locjl-sorkeHix  foreign-socket. -fix  "NET"  foreign-hosHix  byte-$itetfix> 


where: 

nx\ir  is  the  inode  of  ihr  desired  CHANNrt.  This  must  be  either  "READ",  "PRINT",  "REAOB"  or 
"PR1NIB" . 

/<xv/-‘.ovAef  is  the  local  socket  number.  If  it  is  -1,  the  operating  system  will  generate  a unique 
local  socket  number.  If  it  is  not.  in  the  Tenex  and  Tops-20  versions,  the  socket  number  is 
"fork -relative". 

foreign  socket  is  the  foreign  socket  number.  If  it  is  -1,  this  is  an  OPEN  for  "listening". 

torciy.n  lie-.!  is  ihe  foreign  host  number.  If  it  is  an  OPEN  for  listening,  this  argument  is  ignored. 

6\/< re  is  the  optional  byte  si/e.  For  "READ"  or  "PRINT*  this  must  be  either  7 (used  by 

default)  or  P> . For  "Rl  AOB"  or  "PR1NIB",  it  can  be  any  integer  from  1 to  36  (used  by  default). 

In  the  Tciicn  and  Tops-20  versions.  OPEN  can  instead  be  given  a STRING  argument  of  the  form 
"NF  I : . . . " . In  this  * asc  ||I(>  local  socket  number  can  be  "directory-relative*. 

Like  any  ntlm  OPI  II.  either  a CHANNEL  or  a FALSE  is  returned.  Once  open,  a network  CHANNEL  can 
be  used  like  any  other  CHANNEL . except  that  riLE-LENGTH.  ACCESS.  RENAME,  etc.,  cannot  be  done. 
The  "argument"  inst-nauie.  second-name,  and  directory-name  slots  in  the  CHANNEL  are  used  for  local 
socket,  foreign  soviet,  and  foreign  host  (as  specified  in  the  call  to  OPEN),  respectively.  The 
corresponding  "teal  slots  ate  used  somewhat  differently.  If  a channel  is  OPFNed  with  local  socket 

-1,  the  teal  first-name  slot  will  contain  the  unique  socket  number  generated  by  the  operating 

system.  If  a listening  socket  is  OPI  Ned.  the  foreign  socket  and  host  numbers  of  the  answering  host 
are  stored  in  the  "teal"  second-name  and  directory-name  slots  of  the  CHANNEL  when  the  Request  For 
Connection  is  received 
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(An  intei  i i«|*t  (chapter  21)  can  be  associated  with  a "NET  "-dev  ice  CHANNEL,  so  that  a program  will 
know  that  the  CHANNEL  has  or  needs  data,  according  to  its  mode. 

* 

There  also  exist  several  special-purpose  SUBRs  for  the  “NET"  device.  These  are  described  next. 

II.IO.I.  HE  IS?/.  If 

< NE  IS  I ATE  networhxhanneiy 

i 

returns  a UVF.CIOK  of  three  FIXes.  The  first  is  the  state  of  the  connection,  the  second  is  a code 
specifying  why  a connection  was  closed,  and  the  last  is  the  number  of  bits  available  on  the 
connection  lor  input.  The  meaning  of  the  state  and  close  codes  are  installation-dependent  and  so 
are  not  included  here. 


11.10.2.  NE  1 ACC 

< Nb  1 ACC  nctwor  kxhannel  > 

accepts  a connection  to  a socket  that  is  open  for  listening  and  returns  its  argument.  It  will  return  a 
FALSE  if  the  connection  is  in  the  wrong  state. 


1 1.10.3.  NETS 


< Hi  IS  net :vorl  xhanncl) 


returns  its  aigumeut.  after  forcing  any  system-buffered  network  output  to  be  sent.  ITS  normally 
does  this  evn  v half  second  anyway.  Tenex  and  Tops-20  do  not  do  it  unless  and  until  NETS  is  called. 
NETS  is  similar  to  DUKOUT  for  normal  CHANNELS,  except  that  even  operating-system  buffers  are 
emptied  now 
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Chapter  12.  Locatives 

There  is  in  MDI  a facility  for  obtaining  and  working  directly  with  objects  which  roughly 
correspond  to  "pointers"  in  assembly  language  or  "Ivals"  in  BCPL  or  PAL.  In  MDL.  these  are 
genet  ically  I nou  n as  locatives  (from  "location")  and  are  of  several  TYPES,  as  mentioned  below. 
Locatives  exist  to  provide  efficient  means  for  altering  structures:  direct  replacement  as  opposed  to 
re-copying. 

Locatives  always  irfri  to  elements  in  structures.  It  is  not  possible  to  obtain  a locative  to  something 
(for  example,  an  AIO.'II  which  is  not  part  of  any  structure.  It  is  possible  to  obtain  a locative  to  any 
element  in  any  stmciuicd  object  in  MDL  --  even  to  associations  (chapter  13)  and  to  the  values  of 
ATOMs.  structurings  which  aic  normally  "hidden". 

In  the  following,  the  object  occupying  the  structured  position  to  which  you  have  obtained  a locative 
will  he  referred  to  as  the  object  pointed  t_o  by  the  locative. 


12.1.  Obta i m in;  l oca 1 1 yes 


12.1.1.  HOC 

<1100  Mom  «?ri  '> 

returns  a locative  (IYI’1  LOCO,  "locative  to  iDentif ier")  to  the  LVAL  of  atom  in  env.  If  atom  is  not 
bound  in  mi  an  error  occurs,  env  is  optional,  with  the  current  ENVIRONMENT  used  by  default.  The 
locative  letumed  bv  I t OC  is  independent  of  future  rc-bindings  of  atom.  That  is.  IN  (see  below)  of 
that  locative  will  irturn  the  same  thing  even  if  atom  is  re-bound  to  something  else:  SETLOC  (see 
below)  will  affect  only  that  particular  binding  of  atom. 

Since  bindings  are  lept  on  a stack  (tra  la),  any  attempt  to  use  a locative  to  an  LVAL  which  has 
become  unbound  will  fetch  tip  an  error.  (It  breaks  just  like  a TUPLE  . . . .)  LEGAL?  can.  once  again, 
be  used  to  see  if  a LOOP  is  valid.  Caution:  <SET  A <LL0C  A>>  creates  a self-reference  and  can  make 
PRINT  very  unhappy. 
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12.1.2.  GLOt 


vf.l  OC  Mon i />/(>()) 

ffiurns  a locative  ( 1 YPI  IOCO)  lo  tl.r  OVAL  of  Mom.  If  Mom  has  no  GVAL  sjot,  an  error  occurs,  unless 
prod  (optional!  in  given  ami  not  IALSE,  in  wliicli  case  a slot  is  created  (chapter  22).  Caution:  <SET6 
A <GLOC  A ' > creates  a self  reference  and  can  make  PRINT  very  unhappy. 

12.1.3.  A I 

<AI  • tinctured  N:h\-ot -Offset > 

returns  a localise  to  the  \t h element  in  structured.  N is  optional.  1 by  default.  The  exact  TYPE  of 
the  localis  e letm  u.  .1  depends  on  the  PRINT YPL  of  structured.  LOCI  for  LIST.  LOCV  for  VECTOR.  LOCU 
for  UVIl  lOK,  IO(S  for  SIRING,  10CB  for  BYTES,  10CT  for  TEMPLATE,  and  LOCA  for  TUPLE.  If  /Vis 
U reat than  sLEN(>IH  structure d>  or  less  than  1.  or  an  OFFSET  with  a Pattern  that  doesn’t  match 
structure an  eiior  ocs urs.  The  locative  is  unaffected  by  applications  of  REST,  BACK,  TOP.  GROW 
etc.  to  • tructur  ./. 


12.1.4.  GLTIS  and  GET L 

SGEII’I  itcm:.ir>\  uyhcMoi  any  default  :any> 

returns  a locative  (TYPf  (OCASI  to  the  association  of  item  under  indicator.  (See  chapter  13  for 
information  about  assn,  iatmns.)  If  no  such  association  exists.  GETPL  returns  EVAL  of  default,  default 
is  optional.  »t  At  SI  ( ) hy  default 

GrTPl.  corresponds  to  GETPROP  amongst  the  association  machinery.  There  also  exists  GETL,  which 
corresponds  to  (.(  I , i etur uing  either  a LOCAS  or  a locative  to  the  ox/ica/orth  clement  of  a structured 
dem.  GEIl  I'hkeAl  if  item  is  a structure  and  indicator  is  a FIX  or  OFFSET,  and  like  GETPL  if  not. 


12.2.  L0CA1  IVI  ? 

This  StlllR  is  a pnoicate  that  tells  whether  or  not  its  argument  is  a locative.  It  is  cheaper  than 
<HEMQ  < PRIM  I YPI  a-.  > •i[loC0  LOCI  P 
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12.3.  living  l ocative* 

The  following  two  SUBRs  provide  the  meant  for  working  with  locatives.  They  are  independent  of 
the  specific  TYPr  of  the  locative.  The  notation  locative  indicates  anything  which  could  be  returned 
by  LLOC.  GLOC.  81,  GE1PL  or  GETL. 


12.3.1.  IN 


<1N  loratne) 

returns  the  object  to  which  locative  points.  The  only  way  you  can  get  an  error  using  IN  is  when 
lot *h\c  points  to  an  LVAL  which  has  become  unbound  from  an  ATOM.  This  is  the  same  as  the 
problem  in  referencing  TUPLES  as  mentioned  in  section  9.2.  and  it  can  be  avoided  by  first  testing 
< LEGAL?  lo<d>. 

Example*. 


<SET  A 1>S 

) 

< IN  < LLOC  A»S 
1 


12.3.2.  SETLOC 


<SE  ILOC  locative  aoy> 


returns  am*,  after  having  made  any  the  contents  of  that  position  in  a structure  pointed  to  by 
locative.  The  structure  itself  is  not  otherwise  disturbed.  An  error  occurs  if  locative  is  to  a non- 
LEGAL?  I VAL  or  if  you  try  to  put  an  object  of  the  wrong  TYPE  into  a PRINTYPE  UVECTOR,  STRING, 
BYTES,  or  lEMPlATE. 

Example: 


<SET  A (1  2 3»S 
(1  2 3) 

<SrTlOC  <AT  .A  2>  HI>S 

HI 

.AJ 

(1  HI  3) 
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12.4.  Noic  on  Locatives 

Von  may  have  noticed  that  locatives  are,  strictly  speaking,  unnecessary:  you  can  do  everything 
locatives  allow  by  appropriate  use  of,  for  example.  SET,  LVAL,  PUT,  NTH,  etc.  What  locatives 
provide  is  generality. 

Basically,  how  you  obtained  a locative  is  irrelevant  to  SETLOC  and  IN;  thus  the  same  program  can 
play  with  CVALs.  LVALs.  objects  in  explicit  structures,  etc.,  without  being  bothered  by  what  function 
it  should  use  to  do  so.  This  is  particularly  true  with  respect  to  locatives  to  LVALs:  the  fact  that  they 
are  independent  of  changes  in  binding  can  save  a lot  of  fooling  around  with  EVAL  and 
ENVIRONMENTS. 
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Chapter  13.  Association  (Properties) 

There  is  an  "associative"  data  storage  and  retrieval  system  embedded  in  MD1  which  allows  the 
construction  of  data  structures  with  arbitrary  selectors.  It  is  used  via  the  SUBRs  described  in  this 
chapter. 

13.1.  Associa  I i ye  Jit  or  age 

13.1.1.  PUTPROP 

<PUTPR0P  itemiany  indicator  :any  value  zany) 

("put  property")  returns  item,  having  associated  value  with  item  under  the  indicator  indicator. 

13.1.2.  PUT 

<PUT  itenuany  indicator  :any  value:any'> 

| is  identical  1o  Pin  PROP,  except  that,  if  item  is  structured  and  indicator  is  of  TYPE  FIX  or  OFFSET,  it 
does  <SETL0C  <AT  Hem  indicator > valuc>.  In  other  words,  an  element  with  an  integral  selector  is 
stored  in  the  structure  itself,  instead  of  in  association  space.  PUT  (like  AT)  will  get  an  error  if 
indicator  is  out  of  range:  PUTPROP  will  not. 

13.1.3.  Removing  Associations 

If  PUTPROP  is  used  without  its  value  argument,  it  removes  any  association  existing  between  its  item 
argument  and  its  indicator  argument.  If  an  association  did  exist,  using  PUTPROP  in  this  way  returns 
the  value  which  was  associated.  If  no  association  existed,  it  returns  IFALSE  (). 

PUT,  with  arguments  which  refer  to  association,  can  be  used  in  the  same  way. 
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If  citlirr  item  or  indicator  erase  to  exist  (dial  is.  no  one  was  pointing  to  them,  so  they  were  garbage- 
collected).  ami  no  locatives  to  the  association  exist,  then  the  association  between  them  ceases  to  exist 
(is  garbage-collected). 


13.2-  Associative  Itetrieyal 

13.2.1.  Gl  1 PROP 

<GCTPROP  itenuany  indicator -.any  exp:any> 

("get  property")  returns  the  value  associated  witli  item  under  indicator,  if  any.  If  there  is  no  such 
association.  C.CIPROP  returns  EVAL  of  exp  (that  is.  exp  gets  EVAled  both  at  call  time  and  later). 

exp  is  optional.  If  not  given.  GCTPROP  returns  ITAISE  ( ) if  it  cannot  return  a value. 

Note:  item  and  indicator  in  GETPROP  must  be  the  same  MDL  objects  used  to  establish  the  association; 
that  is.  they  must  be  = = ? to  the  objects  used  by  PUTPROP  or  PUT. 

13.2.2.  GET 

< Gt  I itenvany  indicator:any  exp:any"> 

is  the  inverse  of  PUT,  using  NTII  or  GCTPROP  depending  on  the  test  outlined  in  section  13.1.2.  exp  is 
optional  and  used  as  in  GfTPROP. 


13.3.  Examples  of  Association 

<SET  L '(1  2 3 4)>J 
(1234) 

< Pll  1 .1.  FOO  "L  Is  a 11st.">S 
(12  3 4) 

<GC T .1  F00>i 
"I.  is  a list." 

< PU1 PROP  .1  3 • ![4]>J 
(1  2 3 4) 

< GET PROP  .L  3>S 
![4I] 

<GET  .L  3>$ 

3 
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<SET  N 0>S 
0 

<PUT  .N  .L  "list  on  a ztro">S 
0 

<GET  .N  *(123  4)>S 
Al SE  () 

The  last  example  failed  because  READ  generated  a new  LIST  --  not  the  one  which  is  L’s  LVAL. 
However. 

<GE I 0 .OS 
"list  on  a zero" 

works  because  <««?  .N  0>  is  true. 

To  associate  something  with  the  Nth  position  in  a structure,  as  opposed  to  its  Nth  element,  associate 
it  with  <RCST  structure  N-l>,  as  in  the  following: 

< I’d  1 <RE51  .1  ?>  PERCENT  0.3>J 
(3  4) 

<GCT  <2  .L>  PERCENTS 
H AISI  () 

<GET  <RESI  .L  ?>  PERCENT  >S 
0.30000000 

Reinemher  comments? 

■a 

<SET  N • • L A B C ;"third  element"  D E]>S 
If  A B C 0 El] 

< GF 1 <REST  .N  ?>  COMMENDS 
"third  element" 

The  ’ in  the  <50  N ...  > is  to  keep  EVAL  from  generating  a new  UVECTOR  ("Direct 
Representation"),  which  would  not  have  the  comment  on  it  (and  which  would  be  a needless 
duplicate).  A "top-level”  comment  --  one  attached  to  the  entire  object  returned  by  READ  --  is  PUT  on 
the  CIIANNT  L hi  use.  since  there  is  no  position  in  any  structure  for  it.  If  no  top-level  comment 
follows  the  ob  ject.  IU  AD  removes  the  value  (<PUT  channel  COMMENT)):  so  anybody  that  wants  to  see  a 
top-level  comment  must  look  for  it  after  each  READ. 

If  you  need  to  have  a structure  with  selectors  in  more  than  one  dimension  (for  example,  a sparse 
matrix  that  does  not  deserve  to  be  linearized),  associations  can  be  cascaded  to  achieve  the  desired 
result.  In  effect  an  extra  level  of  association  maps  two  indicators  into  one.  For  example,  to 
associate  valor  ssith  item  under  indicator- 1 and  indicalor-2  simultaneously: 

<PUIPR0P  indicator- 1 indicalor-2  T> 
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<1*111  PROP  item  < Gl  T PL  indicMor-1  mdic«lor-2>  value') 


IT  I Examining  A ssorialjons 

Associations  (created  by  PUT  and  PUTPROP)  art’  chained  together  in  a doubly-linked  list,  internal  to 
MDI  The  order  of  associations  in  the  chain  is  their  order  of  creation,  newest  first.  There  are 
seveial  SI  till’s  fm  examining  the  chain  of  associations.  ASSOCIATIONS  returns  the  first  association 
in  the  chain,  or  'I  At  Si  ( ) if  there  are  none.  NEXT  takes  an  association  as  an  argument  and  returns 
the  next  association  in  the  chain,  or  #FALSE  ( ) if  there  are  no  more.  ITEM,  INDICATOR  and  AVALUE 
all  take  an  association  as  an  argument  and  return  the  item,  indicator  and  value,  respectively. 
Associations  print  as: 

eASOC  (item  indicator  value) 

(sic:  only  one  S).  Example:  the  following  gathers  all  the  existing  associations  into  a LIST. 

< PROG  ((A  < ASSOCIATIONS)) ) 

<CONI)  ( <NOJ  . A>  '()) 

(1  (.A  KMAPF  .LIST 

FUNCTION  ()  <C0ND  (<SET  A <NEXT  .A»  .A) 

(T  <MAPST0P> )>»))>> 
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Chapter  14.  Datn-type  Declarations 


In  Mm  . it  is  possible  10  declare  Hie  permissible  range  of  "types’  and/or  structures  that  an  ATOM’S 
s-ahies  or  a function's  arguments  or  value  may  have.  This  is  done  using  a special  TYPE,  the  DECL 
( declaration  ).  A DECL  is  of  PRIMTYPE  LIST  but  has  a complicated  internal  structure.  DECLs  are 
used  by  the  inlrriuclcr  In  find  TYPE  errors  in  function  calling  and  by  the  compiler  to  generate  more 
efficient  code. 

There  are  two  kinds  of  DECLs.  The  first  kind  of  OECL  is  the  most  common.  It  is  called  the  ATOM 
DECL  and  is  used  most  commonly  to  specify  the  type/structure  of  the  LVALs  of  the  ATOMs  in  the 
argument  l IS1  of  a I UNCI  ION  or  aux  LIST  of  a PROG  or  REPEAT.  This  DECL  has  the  form: 

*DECL  (a tomsdist  Pattern  ...) 

where  the  pairing  of  a LIST  of  AlOHs  and  a "Pattern"  can  he  repeated  indefinitely.  This  declares  the 
ATOMs  in  a /is/  to  he  of  the  type/slructure  specified  in  the  following  Pattern.  The  special  ATOM 
VALUE . if  it  appears,  declares  the  result  of  a FUNCTION  call  or  PROG  or  REPEAT  evaluation  to  satisfy 
the  Pallet n specified.  An  A10M  DECL  is  useful  in  only  one  place:  immediately  following  the 
argument  1 1ST  of  a FUNCTION,  PROG  or  REPEAT.  It  normally  includes  ATOMs  in  the  argument  LIST 
and  ATOMs  whose  LVALs  are  otherwise  used  in  the  Function  body. 

The  second  kind  or  1)1  C|  is  rarely  seen  by  the  casual  MDL  user,  except  in  appendix  2.  It  is  called 
the  RSUBR  DECL.  It  is  used  to  specify  the  type/structure  of  the  arguments  and  result  of  an  RSUBR  or 
RSUBR-ENTRY  (chapter  191.  It  is  of  the  following  form: 

-DE  Cl  ( "VALUE  " Pattern  Pattern  ...) 

where  the  STRING  "VALUE"  precedes  the  specification  of  the  type/structure  of  the  value  of  the  call  to 
the  RSUUR,  and  the  remaining  Patterns  specify  the  arguments  to  the  RSUBR  in  order.  The  full 
specification  of  ihe  RSUBR  lit  CL  will  he  given  in  section  14.9.  The  RSUBR  DECL  is  useful  in  only 
one  place:  as  an  element  of  an  RSUBR  or  RSUBR-ENTRY. 
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14.1.  Patterns 

The  simplest  pass il/le  Pattern  is  to  say  that  a value  is  exactly  some  other  object,  by  giving  that 
object,  QUOTEd.  For  example,  to  declare  that  a variable  is  a particular  ATOM: 

f’DECL  ((X)  ’T) 

declares  that  .X  is  always  the  ATOM  T.  When  variables  are  OECLcd  as  "being"  some  other  object  in 
this  way.  the  test  used  is  =?,  and  not  ==?.  The  distinction  is  usually  not  important,  since  ATOMS, 
which  are  most  commonly  used  in  this  construction,  are  ==?  to  each  other  if  *?  anyway. 

It  is  more  common  to  want  to  specify  that  a value  must  be  of  a given  TYPE.  This  is  done  with  the 
simplest  non-specific  Pattern,  a TYPE  name.  For  example, 

*DECL  ((X)  rix  (Y)  FLOAT) 

declares  .X  to  be  of  TYPE  FIX,  and  ,Y  of  TYPE  FLOAT.  In  addition  to  the  names  of  all  of  the  built- 
in  and  created  TYPEs,  such  as  FIX,  FLOAT  and  LIST,  a few  "compound"  type  names  are  allowed: 

ANY  allows  any  TYPF . 

STRUCTURED  allows  any  structured  TYPE,  such  as  LIST,  VECTOR,  FALSE,  CHANNEL,  etc. 
(appendix  3). 

LOCATIVE  allows  any  locative  TYPE,  such  as  are  returned  by  LLOC,  GLOC,  AT,  and  so  on 
(chapter  12). 

APPLICAIll  F allows  any  applicable  TYPE,  such  as  FUNCTION,  SUBR,  FIX  (!),  etc.  (appendix  3). 

Any  other  ATOM  can  be  used  to  stand  for  a more  complex  construct,  if  an  association  is 
established  on  that  ATOM  and  the  ATOM  DECL.  A common  example  is  to  <PUT  NUMBER  DECL 
'<OR  I IX  FI.OAT>>  (see  below),  so  that  NUMBER  can  be  used  as  a "compound  type  name". 

The  single  TYPE  name  can  be  generalized  slightly,  allowing  anything  of  a given  PRIMTYPE,  using 
the  following  construction: 

i»DtCL  ((X)  <PRIMTYPE  WORD)  (Y)  < PRIMTYPE  LIST)) 

This  construction  consists  of  a two-element  EORM,  where  the  first  element  is  the  ATOM  PRIMTYPE, 
and  the  second  the  name  of  a primitive  type. 

The  next  step  is  to  specify  the  elements  of  a structure.  This  is  done  in  the  simplest  way  as  follows: 

< structurcci-.typc  Pattern  Pattern  ...) 
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where  there  it  a one-to-one  correspondence  between  the  Pattern  and  the  elements  of  the  structure. 
For  example: 

ADECL  ((X)  < VECTOR  FIX  FLOAT>) 

declares  .X  to  hr  a VECTOR  having  at^  least  two  elements,  the  first  of  which  is  a FIX  and  the  second  a 
FLOAT . It  is  often  convenient  to  allow  additional  elements,  so  that  only  the  elements  being  used  in 
the  local  neighborhood  of  the  OECL  need  to  be  declared.  To  disallow  additional  elements,  a SEGMENT 
is  used  instead  of  a TORM  (the  "cxcl-ed"  brackets  make  it  look  more  emphatic).  For  example: 

ADECl  ((X)  KVECTOR  FIX  FLOAT)) 

declares  .X  to  be  a VECTOR  having  exactly  two  elements,  the  first  of  which  is  a FIX  and  the  second  a 
FLOAT . Note  that  the  Patterns  given  for  elements  can  be  any  legal  Pattern: 

'DECL  ((X)  < VECTOR  <VECTOR  FIX  FLOAT))  (Y)  «PRIHTYPE  LIST)  LIST)) 

declares  .X  to  lie  a VECTOR  containing  another  VECTOR  of  at  least  two  elements,  and  ,Y  to  be  of 
PRIMTYPE  LTST,  containing  a LIST.  In  the  case  of  a BYTES,  the  individual  elements  cannot  be 
declared  (they  must  be  Fixes  anyway),  only  the  site  and  number  of  the  bytes: 

#DFCL  ((B)  <BYTES  7 3>) 

declares  .0  to  be  a BYTES  with  BYTE-SIZE  7 and  at  least  three  elements. 

It  is  possible  to  say  that  some  number  of  elements  of  a structure  satisfy  a given  Pattern  (or 
sequence  of  Patterns).  This  is  called  an  "NTH  construction". 

r number :t ix  Pattern  Pattern  ...  ] 

states  that  the  sequence  of  Patterns  which  is  REST  of  the  VECTOR  is  repeated  the  number  of  times 
given.  For  example: 

#DECL  ((X)  <VEC10R  [3  FIX]  FLOAT)  (Y)  <LIST  [3  FIX  FLOAT))) 

.X  is  declared  to  contain  three  TlXes  and  a FLOAT,  perhaps  followed  by  other  elements.  .Y  is 
declared  to  repeat  the  sequence  FIX-FLOAT  three  times.  Note  that  there  may  be  more  repetitions  of 
the  sequence  in  . Y (but  not  in  .X):  the  DECL  specifies  only  the  first  six  elements. 

For  indefinite  repetition,  the  same  construction  is  used.  but.  instead  of  the  number  of  repetitions  of 
the  sequence  of  Patterns,  the  ATOM  REST  is  given.  This  allows  any  number  of  repetitions,  from  zero 
on  up.  For  example: 

rDCCL  ((X)  < VECTOR  [REST  FIX))  (Y)  (LIST  [3  FIX]  [REST  FIX]) 
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A "REM  miiMim  non"  can  contain  any  number  of  Patterns,  just  like  an  NTH  construction: 
eOECl  ((X)  < VECTOR  l REST  r IX  FLOAT  LIST])) 

ileclaies  that  .X  is  a VI  CIOR  wherein  the  sequence  I 1X-T LOAT-L  1ST  repeats  indefinitely.  It  docs  not 
declatc  that  \l  E HE.III  .X>  is  an  even  multiple  of  tin rc:  the  VECTOR  can  end  at  any  point. 

A variation  on  RISE  is  ON  (or  OPTIONAL),  which  i*  similar  to  REST  except  that  the  construction  is 
scanned  once  at  most  instead  of  indefinitely,  and  further  undeclared  elements  can  follow.  For 
example: 


-m  ct  ( (x)  cvrciOR  (oim  nx]» 

declares  that  .X  is  a VECTOR  which  is  empty  or  whose  first  element  is  a FIX.  Only  a REST 
construction  can  follow  an  "OPT  construct  ion". 

Note  that  the  Rl  M constiuciion  must  always  he  the  last  element  of  the  structure  declaration,  since  it 
gives  a Cat  to  n lot  the  rest  of  the  structure.  Thus,  the  REST  construction  is  diffetent  from  all  others 
in  that  it  has  an  unlimited  tattle  No  matter  Imw  many  times  the  Pattern  it  gives  is  RISIcd  off  of 
the  stmctuie.  the  lemaiuder  of  the  structure  still  has  that  Pattern. 

This  exhausts  the  possible  single  Patterns  that  can  he  given  in  a declaration.  However,  there  is  also 
a compound  Pattern  defined  It  allows  specification  of  several  possible  Patterns  for  one  value: 

COR  r.'ttcm  I’Mtcrn  ...  > 

Any  non-compound  Pattern  can  lie  included  as  one  of  the  elements  of  the  compound  Pattern. 
Filially,  compound  Patterns  can  he  used  as  Patterns  for  elements  of  structures,  and  so  on. 

Mtrct  ((X)  sOR  I IX  FLOAT  > 

(Y)  sOR  I IX  CUVICTOR  (REST  COR  FIX  FLOAT)]))) 

The  OR  const  t net  ion  can  he  extended  to  any  level  of  ridiculousness,  but  the  higher  the  level  of 
complexity  and  compoundcduc"  the  less  likely  the  compiler  will  find  the  OECL  useful. 

At  the  highest  level,  any  Pattern  at  top  level  in  an  A10M  DECL  can  be  enclosed  in  the  construction 

< • fv'cia/f  \ .atom  PMtem  > 

which  explicitly  declares  the  specialty  of  the  A10lt(s)  in  the  preceding  LIST,  speoa/fy  can  be  either 
SPEC1AI  or  UtlSl'l  C 1 AT  . Specially  is  important  only  when  the  program  is  to  hr  compiled.  The  svord 
comes  from  the  contiol  stack,  which  i'  called  special  in  Lisp  (Moon,  19/4)  because  the  garbage 
collector  finds  objects  on  it  and  modifies  their  internal  pointers  when  storage  is  compacted.  (An 
internal  stack  is  used  within  the  interpreter  and  is  not  accessible  to  programs  - section  22.1.)  in 
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an  interpreted  program  all  local  values  arc  initially  SPECIAL,  because  all  bindings  are  pul  on  Hie 
control  Mack  (Imi  see  SPrClAI -MODI  below).  When  the  program  is  compiled,  only  values  declared 
SPEC1AI  (which  may  or  may  not  hr  the  declaration  used  by  default)  remain  in  bindings  on  the 
control  slack.  All  oihcrs  are  taken  caie  of  simply  by  storing  objects  on  the  control  stack:  the  ATOMs 
involved  are  not  needed  and  arc  not  created  on  loading.  So.  a program  dial  SETs  ail  ATOM’s  local 
value  for  another  program  to  pick  up  must  declare  that  ATOM  to  be  SPECIAL.  If  it  doesn’t,  die  ATOM’S 
binding  will  go  away  during  compiling,  and  the  program  that  needs  to  refer  to  Hie  ATOM  will  cither 
get  a no- value  error  or  refer  to  ail  etroueous  binding.  Usually  only  ATOMs  which  have  the  opposite 
specialty  from  that  of  the  current  SPECIAL-MODE  are  explicitly  declared.  The  usual  SPECIAL-NODE  is 
UNSPCC1AL.  so  typically  only  SPECIAL  declarations  use  this  construction: 

ePECL  ((ACT)  <SPECIAL  ACTIVATION)) 
explicitly  declares  ACI  to  he  SPECIAL . 

Most  wrll-wi itten.  modular  programs  gel  all  their  information  from  their  arguments  and  from 
GVAIs.  and  thus  they  rarely  use  SPECIAL  ATOMs.  except  perhaps  for  ACTIVATIONS  and  the  ATOMs 
whose  IVAIs  Mill  uses  by  default:  INCIIAN,  0U1CIIAN,  OBLIST,  DEV,  SNM,  NM1 , NMZ . OUTCIIAN  is 
a special  case:  the  compiler  thinks  ihat  all  conversion-output  SUBRs  are  called  with  an  explicit 
CHANNEL  argument,  whether  or  not  the  program  being  compiled  thinks  so.  For  example.  <CRLF>  is 
compiled  as  though  it  were  < CRI F .OUTCIIAN).  So  you  may  use  (or  see)  die  binding  (OUTCHAN 
.OLI1CIIAN)  in  an  argument  I 1ST,  however  odd  that  may  appear,  because  that  --  coupled  with  the 
usual  UNSPECIAL  declaration  by  default  -*  makes  only  one  reference  to  the  current  binding  of 
OUTCIIAN  ami  stiitfs  the  result  in  a slot  on  the  stack  for  use  within  the  Function. 


14.2.  Exam  pies 

"HI  Cl  ((Q)  <0R  VECIOR  CHANNEL)) 
declares  .0  to  lie  either  a VECTOR  or  a CHANNEL. 

•DLCL  ((P  0 R S)  <PR1NTYPE  LIST)) 
declares  .P,  Q.  ,R.  and  .S  all  to  be  of  PRIMTYPE  LIST. 

<*PECL  ( (E  ) <F0l!M  [3  ANY])) 

declares  ,r  to  he  a FORM  whose  length  is  at  least  three,  containing  objects  of  any  old  TYPE. 

i'DLCL  ( (LL ) < < PR  III  TYPE  l 1ST)  [4  <LIST  [REST  FIX])])) 

declares  .LI  to  he  of  PRIMTYPE  LIST,  and  to  have  at  least  four  elements,  each  of  which  are  LIST*  of 
unspecifirrl  length  (possibly  empty)  containing  TlXes. 
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-nit i ((vv)  <vmoR  i ix  aioh  character)) 

dedans  .VV  m In  t VITIOR  with  at  least  liner  elements.  Those  elements  are,  in  order,  of  TYPE  FIX, 
AIOM.  and  t'HARAt  HR. 

• PI  • I ( (I  II)  <1  1SI  AlOII  [ RFSI  I 10A1  ]>) 

deflates  i n to  Ur  a I 1ST  whose  first  rlriiirnt  is  an  A10I1  and  the  rest  of  whose  elements  are  FLOAT*. 
It  also  sa>  s that  .III  is  at  least  one  element  long. 

-urn  ((too)  <i  isi  (rest  m nx|>) 

deflates  .1  t'O  to  lie  a | is  I whose  odd-positioned  rlemeiits  are  the  ATOM  T and  whose  even-positioned 
elements  ate  I 1 Xes 

< MAPI!  s > 

<1  till*  I IOIJ  (X) 

♦1*1  n ((X)  cVTCIOR  l 1 F I X ]> ) 

<l'll|  .X  I 0>> 

.!  OP' 

tleclaies  .x  to  lw  a VI  t IOR  tonlaiiiing  at  least  one  I IX.  The  more  restrirlive  [RLST  FIX]  wonltl  take 
excessive  i In  1 1 in>,  t tine  hv  the  inlet  preter.  heeatisc  the  RIST  of  the  VECTOR  would  be  checked  on 
each  itnation  o|  the  MAPI? . In  this  case  both  PI  CIs  are  equally  powerful,  because  checking  the  first 
element  n|  all  the  III  Sis  of  a stun  tine  rsrnfnally  checks  all  the  elenirnts.  Also,  since  the  FUNCTION 
refets  mils  to  the  litst  « lenn-ni  o|  X,  this  is  as  mncli  declaiation  as  the  cotnpiler  ran  effectively  use. 
(If  this  VI  t lt'R  always  lont.iins  only  riXrs,  it  should  he  a UVFCTOR  instead,  for  space  efficiency. 
Then  a (III  SI  I IX  | PI  i I won  Id  make  the  interpreter  check  only  the  UTYPE.  If  the  FIXcs  cover  a 
small  tion-ncgatis  e i.ingc.  then  a 11YII  S might  be  even  better,  with  a DFCL  of  <BYTES  n 0>. ) 

sl'l  Mill  I AC  I (N) 

*PI  t I ( ( N ) <IIHSP|  CIAI  I IX>) 

stONIt  (sO?  . N>  1)  (FIST.  <*  .14  <1  ACT  <-  .N  1>>>)>> 

declares  N to  lie  of  1YPI  I IX  ami  UNSITCIAI  . This  specialty  declaration  ensures  that,  independent 
of  SPFC1AI  -IIOUI  dining  compiling.  .14  gets  compiled  into  a fast  control-stack  reference. 

sPROG  (<l  (0)) 

♦Ml  Cl  ((I  VAIIII  ) <IIHSPrCIAl  <L  1ST  [REST  FIX]» 

(14)  <Ht4SPI  CIAI  I IX>) 

<CO«0  (<0?  . I4>  <Rt  TURN  .L>)> 
sSri  I (<♦  .N  <1  ,l>>  ! ,L)> 

<ST  I 14  <-  .N  1>>> 
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The  above  declare*  L anil  N lo  be  UNSPECIAL,  says  that  .N  is  a FIX,  and  says  that  .L,  along  with 
the  value  returned,  is  a LIST  of  any  length  composed  entirely  of  FIXes. 


N.3.  The  PECI  Syntax 

This  seition  gives  «|ti.isi-IINF  productions  for  the  MDL  DECL  syntax.  In  the  following  table  MDL 
type-specifiers  are  distinguished  m this  way. 


decl  ::= 
declprs 
at list  ::= 
pattern  ::= 
pat  ::= 
unit  ::  = 


struc 

bstruc 

elts 


MifCI  (declprs) 

(allisl)  pattern  | declprs  declprs 
atom  | atom  at  list 

pat  l CUNSPLCIAL  pat>  | <5PECIAL  pat> 

unit  | <0R  unit  ...  unit> 

type  I <PRIMTYPE  /vpe>  | atom  | 'any 
| ANY  | STRUCTURED  | LOCATIVE  | APPLICABLE 
| <struc  elts)  1 <<0R  struc  ...  struc)  elts) 

| Kslruc  cits)  | !<<0R  struc  ...  struc)  cits) 
| <bstruc  fix>  | <bstruc  fix  fix> 

| Kbstruc  fix  fix> 

structurcd-typc  | <PRIMTYP£  structured-type > 

BYirS  | <PRIMTYPC  BYTES) 

pat  | pat  elts 
I l fix  pat  ...  pat] 

| (ft*  pat  ...  pat]  elts 
I [opt  pat  ...  pat]  | [RES1  pat  ...  pat] 

I l opt  pat  ...  pat]  [REST  pat  ...  pat] 


opt 


0P1  | OPTIONAL 
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14.4.  Good  OCCl s 

There  are  mine  rules  of  lliumb  concerning  "good"  DECLs.  A “good"  DECL  is  one  that  is  minimally 
offensive  to  the  DCCL-cliecking  mechanism  and  the  compiler,  but  that  gives  the  maximum  amount 
of  information.  It  is  simple  to  state  what  gives  offense  to  the  compiler  and  DECL-checking 
mechanism:  complexity.  For  example,  a large  compound  DECL  like: 

r'DCCL  ((X)  <0R  FIX  LIST  UVECTOR  FALSE >) 

is  a DECL  that  the  compiler  will  find  totally  useless.  It  might  as  well  be  ANY.  The  more  involved 
the  OR,  the  less  information  the  compiler  will  find  useful  in  it.  For  example,  if  the  function  takes 
<0R  LIST  VrciOR  HVrCTOR\  maybe  you  should  really  say  STRUCTURED.  Also,  a very  general  DECL 
indicates  a very  general  program,  which  is  not  likely  to  be  efficient  when  compiled  (of  course  there 
is  a trade-off  hete).  Narrowing  the  DECL  to  one  PR1MTYPE  gives  a great  gain  in  compiled  efficiency, 
to  one  TYPE  still  more. 

Another  situation  to  he  avoided  is  the  ordinary  large  DECL,  even  if  it  is  perfectly  straightforward. 
If  you  have  created  a structure  which  has  a very  specific  DECL  and  is  used  all  over  your  code,  it 
might  lie  belter  as  a IIEWTYPE  (see  below).  The  advantage  of  a NEWTYPE  over  a large  explicit  DECL  is 
twofold.  First,  the  entire  structure  must  be  checked  only  when  it  is  created,  that  is.  CHTYPEd  from 
its  PR1M1YPF.  As  a full  DECL,  it  is  chrcked  completely  on  entering  each  function  and  on  each 
reassignment  of  ATOMs  DECLed  to  be  it.  Second,  the  amount  of  storage  saved  in  the  DECLs  of 
FUNCTIONS  and  so  on  is  large,  not  to  mention  the  effort  of  typing  in  and  keeping  up  to  date  several 
instances  of  the  full  DLCL. 


14.5.  Global  lircts 


14.5.1.  GDECL  and  MANIFEST 

There  are  two  ways  to  declare  GVALs  for  the  DECL-checking  mechanism.  These  are  through  the 
FSUBR  GDECL  ("global  declaration")  and  the  SUBR  MANIFEST. 

< GDI  CL  Momsdist  Pattern  ...> 

GDECL  allows  the  type/structure  of  global  values  to  be  declared  in  much  the  same  way  as  local 
values.  F.xample: 

< GDECL  (X)  FIX  (Y)  <L1ST  FIX» 

declares  ,X  to  lie  a FIX,  and  ,Y  to  be  a LIST  containing  at  least  one  FIX. 

<MANIFEST  Mom  Mom  ...> 

« 
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MANIFEST  takes  as  arguments  ATOMs  whose  GVAL*  are  declared  to  be  constants.  It  is  used  most 
commonly  to  indicate  that  certain  ATOMs  are  the  names  of  offsets  in  structures.  For  example: 

<SE1G  X 1> 

< MANIFEST  X> 

allows  the  compiler  to  confidently  open-compile  applications  of  X (getting  the  first  element  of  a 
structure!,  knowing  that  ,X  will  not  change.  Any  sort  of  object  can  be  a MANIFEST  value:  if  it  does 
not  get  embedded  in  the  compiled  code,  it  is  included  in  the  RSUBR’s  "reference  vector",  for  fast 
access.  However,  as  a general  rule,  structured  objects  should  not  be  made  MANIFEST:  the  SETG  will 
survive  in  the  compiled  version  (for  the  use  of  new  uncompiled  programs),  but  uses  of  GVAL  will 
instead  refer  to  a distinct  copy  of  the  object  in  each  RSUBR  that  does  a GVAL.  A structured  object 
should  instead  be  GOECLed. 

An  attempt  to  SFTG  a MANIFFST  ATOM  will  cause  an  error,  unless  either 

(1)  the  ATOM  was  previously  globally  unassigned: 

(2)  the  old  value  is  ==?  to  the  new  value:  or 

(3)  .REDETINE  is  not  FALSE. 


14.5.2.  MANIFEST?  and  UNMANIFEST 


< MANIFEST?  atom'} 


returns  T if  atom  is  MANIFEST,  #FALSE  ()  otherwise. 

<UNMANIFE ST  atom  atom  ...> 

removes  the  MANIFEST  of  the  global  value  of  each  of  its  arguments  so  that  the  value  can  be  changed. 


14.5.3.  GDOUND? 


< GROUND?  atom > 

("globally  bound?")  returns  T if  atom  has  a global  value  slot  (that  is.  if  it  has  ever  been  SETGed, 
MANIFEST,  GDECLcd,  or  GLOCcd  (chapter  12)  with  a true  second  argument).  #FALSE  ( ) otherwise. 
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116  Nl  WTYPf  taga in) 

NEWTYPL  gives  the  programmer  another  way  to  DECL  objects.  The  third  (and  optional)  argument  of 
NEWTYPL  is  a QUOTEd  1’altcrii.  If  given,  it  will  be  saved  as  the  value  of  an  association  (chapter  13) 
using  the  name  of  the  NEWIYPE  as  the  item  and  the  ATOM  OCCL  as  the  indicator,  and  it  will  be  used  to 
check  any  object  that  is  about  to  lie  CIITYPEd  to  the  NEWTYPE.  For  example: 

<nrwTYPr  complex-number  vector  '«primtype  vector>  float  float» 

creates  a new  1YPI  . with  its  first  two  elements  declared  to  be  FLOATS.  If  later  someone  types: 

-COMPI  TX-NUMBFR  [1.0  2] 

an  error  will  result  (the  second  element  is  not  a FLOAT).  The  Pattern  can  be  replaced  by  doing 
another  NEWTYPL  for  the  same  TYPE,  or  by  putting  a new  value  in  the  association.  Further 
examples: 


<NEWI YPE  100  LIST  *«PRIMIYPE  LIST)  FIX  FLOAT  [REST  ATOM])) 
causes  TOCs  to  contain  a TIX  and  a FLOAT  and  any  number  of  ATOMs. 

<NEWJYPE  BAR  LIST) 

< SI.  1 A •‘BAR  (JBAR  ()  1 1.2  GRITCH)) 

< NEWT YPE  BAR  LIST  'CCPRIMTYPE  LIST)  BAR  [REST  FIX  FLOAT  ATOM])) 

This  is  an  example  of  a recursively  DrClcd  TYPE.  Note  that  <1  .A)  docs  not  satisfy  the  DECL, 
because  it  is  empty,  but  it  was  CHTYPFd  before  the  DECL  was  associated  with  BAR.  Now.  even 
<CHTYPE  <1  .A)  < T YPE  <1  .A>>>  will  cause  an  error. 

In  each  of  these  examples,  the  <<PKJMTYPr  ...)  ...)  construction  was  used,  in  order  to  permit 
CHTYPEing  an  ob  ject  into  itself.  See  what  happens  otherwise: 

<Nl  WTYPE  OOPS  LIST  ’<LIST  ATOM  FLOAT))* 

OOPS 

<SET  A <CH1  YPE  (E  2.71B28)  00PS»S 
rOOPS  (E  2.71828) 

Now  < CM  1 YPt  .A  OOPS)  will  cause  an  error.  Unfortunately,  you  must 

< CUT YPE  < CUT YPE  .A  LIST)  OOPS)* 
rfOOPS  (F  2.71828) 
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14.7.  Controlling  DEC L Checking 

There  are  several  SllRRs  and  FSUBRs  in  MDL  that  are  used  to  control  and  interact  with  the  DECL- 
checking  mechanism. 


14.7.1.  DFCL-CHFCK 

This  entire  complex  checking  mechanism  can  get  in  the  way  during  debugging.  As  a result,  the 
most  commonly  used  DECL-orirntcd  5UBR  is  DECL-CHECK.  It  is  used  to  enable  and  disable  the  entire 
DECL-checking  mechanism. 

<DECL-CIIECK  fahe-or-arty > 

/ 

If  its  single  argument  is  nou-FALSE,  DECL  checking  is  turned  on:  if  it  is  FALSE,  DECL  checking  is 
turned  off.  The  previous  state  is  returned  as  a value.  If  no  argument  is  given,  DECL-CHtCK  returns 
the  current  state.  In  an  initial  MDL  DECL  checking  is  on. 

When  DECI  checking  is  on.  the  DECL  of  an  ATOM  is  checked  each  time  it  is  SET,  the  arguments  and 
results  of  calls  to  FUNCTIONS.  RSUBRs,  and  RSUBR-ENTRYs  are  checked,  and  the  values  returned  by 
PROG  and  REPEAT  are  checked.  The  same  is  done  for  SETGs  and,  in  particular,  attempts  to  change 
MANIFEST  global  values.  Attempts  to  CIITYPE  an  object  to  a NEWTYPE  (if  the  NEWTYPE  has  the 
optional  DECL)  are  also  checked.  When  DECL  checking  is  off,  none  of  these  checks  is  performed. 


14.7.2.  SPEC  I At  -CHECK  and  SPECIAL-MODE 
<SPECIAL-CMECK  fahe-or-any > 

controls  whether  or  not  SPECIAL  checking  is  performed  at  run  time  by  the  interpreter.  It  is  initially 
off.  Failure  to  declare  an  ATOM  to  be  SPECIAL  when  it  should  be  will  produce  buggy  compiled  code. 

<SPECIAL-I10DE  sPecialty:atom> 

sets  the  declaration  used  by  default  (for  ATOMs  not  declared  either  way)  and  returns  the  previous  such 
declaration,  or  the  current  such  declaration  if  no  argument  is  given.  The  initial  declaration  used  by 
default  is  UNSPECIAI  . 


14.7.3.  GET-DECL  and  PUT-DECL 

GET-DECL  and  PUI-DI  Cl  are  used  to  examine  and  change  the  current  DECL  (of  either  the  global  or 
the  local  value)  of  an  ATOM. 

<GET-0rCL  locd> 
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return*  tlir  PI  Cl  Pattern  (if  any.  otherwise  irALSC  ( ))  associated  with  the  global  or  local  value  slot 
of  an  AlOtt.  For  example: 

<PROG  (X) 

enrci  (<x)  <o«  nx  riOAT>) 

(GEI-DECL  <UOC  X» 

...> 

would  return  COR  I IX  1 1 0A1  > as  the  rcstilt  of  the  application  of  GET-OECL.  Note  that  because  of 
the  use  of  HOC  for  GIOC , for  global  values)  the  A10M  being  examined  must  be  bound:  otherwise  you 
will  get  an  nrnr!  This  can  be  gotten  around  by  testing  first  with  BOUND?  (or  GB0UND7,  or  by  giving 
GLOC  a second  argument  which  is  not  I AlSl). 

If  the  slot  being  examined  is  the  global  slot  and  the  value  is  MANIFEST,  then  the  ATOM  MANIFEST  it 
returned.  If  the  value  being  examined  is  not  DCCLcd,  SFALSE  ( ) is  returned. 

< PUT -Of  CL  locd  Pattern) 

makes  r.<tu>n  be  the  01  Cl  for  the  value  and  returns  toed.  If  <DECl-CHECK>  is  true,  the  current  value 
must  satisfy  the  new  Pattern.  PUI-DFCL  is  normally  used  in  debugging,  to  change  the  DECL  of  an 
object  to  correspond  to  changes  in  the  program.  Note  that  it  is  not  legal  to  PUT-DECl  a "Pattern"  of 
MANirrSl  or  er Al sr  ( ). 


14.7.4.  DECL? 


<1)1  Cl  ? any  pattern) 

specifically  checks  any  against  PAltcni  For  example: 

<l)Kl  ? *fl  ? 3]  '<VECIOR  (REST  FIX]»i 
T 

<PCCl?  '(  1 7.0  3.0]  '<VECT0R  [REST  FIX]»S 
LI  AI  SE  () 


14.8.  orrsr.i 

An  OFFSET  is  essentially  a r IX  with  a Pattern  attached,  considered  as  an  APPLICABLE  rather  than  a 
number.  An  orrsu  allows  a program  to  specify  the  type  of  structure  that  its  FIX  applies  to. 
OfFStls,  lil  c Piets  - if  used  properly  can  make  debugging  considerably  easier:  they  will 
eventually  also  help  the  compiler  generate  more  efficient  code. 
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The  SUKR  OFFSET  takes  two  arguments,  a FIX  and  a Pattern,  and  returns  an  object  of  TYPE  and 
PRIMTYPC  orrsn . All  orrSET,  like  a FIX,  may  be  given  as  an  argument  to  NTH  or  PUT  and  may  be 
applied  to  arguments.  The  only  difference  is  that  the  STRUCTURED  argument  must  match  the 
Pattern  contained  in  the  OFFSET,  or  an  error  will  result.  Thus: 


<sr.iG  roo  <orrsET  1 '<ciiannel  fix»>s 
xcorrsn  1 ^channel  fix» 

<FOO  ,ItJCHAN>S 
1 

<roo  <ROOT »s 

•ERROR* 

ARC-WROtlG-TYPE 

NTH 

l ISIEHlNG-AT-t EVEL  2 PROCESS  1 

Note:  when  the  compiler  gets  around  to  understanding  OFFSETS,  it  will  not  do  the  right  thing  with 
them  unless  they  arc  MANIFEST.  Since  there's  no  good  reason  not  to  MANIFEST  them,  this  isn't  a 
problem. 

The  SUBR  INDEX,  given  an  OFFSET,  returns  its  FIX: 

< INi>(  X ,FOO>S 
1 

GET-DECL  of  an  OFFSET  returns  the  associated  Pattern:  PUT-DECL  of  an  OFFSET  and  a Pattern  returns 
a new  orrsi  1 with  the  same  INDEX  as  the  argument,  but  with  a new  Pattern: 

< GET-DECl  ,FOO>S 
< CHANNEL  FIX> 

<Pt!l -IH  Cl  ,1  00  OBI  ISOS 
XCOIFSEI  1 OBLIST  > 

.roos 

X<0rrSET  1 '< CHANNEL  FIX» 

An  OFFSET  is  not  a structured  object,  as  this  example  should  make  clear. 


14.9.  The  RSUBR  DFCL 

The  F..MIBR  HI  Cl  is  similar  to  the  ATOM  DECL,  except  that  the  declarations  are  of  argument  positions 
att'j  value  rafhri  than  of  specific  ATOMs.  Patterns  can  be  preceded  by  STRINGS  which  further 
describe  the  argument  (or  value). 
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The  .simplest  RSUUK  OGCt.  is  for  ail  RSUBR  or  RSUBR-ENTRY  (chapter  19)  which  has  all  of  its 
arguments  evaluated  and  returns  a OFCLcd  value.  For  example: 

.'PCCL  ("VALUE"  riX  FIX  FLOAT) 

declares  that  there  are  two  arguments,  a FIX  and  a FLOAT,  and  a result  which  is  a FIX.  While  the 
STRING  "VALUE"  is  not  constrained  to  appear  at  the  front  of  the  DECL,  it  does  appear  there  by 
custom.  It  need  not  appear  at  all.  if  the  result  is  not  to  be  declared,  but  (again  by  custom)  in  this 
case  it  is  usually  declared  ANY. 

If  any  arguments  are  optional,  the  STRING  "OPTIONAL*  (or  "OPT")  is  placed  before  the  Pattern  for 
the  first  optional  argument: 

f>DECL  ("VALUE*  FIX  FIX  "OPTIONAL"  FLOAT) 

If  any  of  the  arguments  is  not  to  be  evaluated,  it  is  preceded  by  the  STRING  "QUOTE": 

#DECL  ("VALUE"  FIX  "QUOTE"  FORM) 

declares  one  argument,  which  is  not  EVALed. 

If  the  arguments  are  to  be  evaluated  and  gathered  into  a TUPLE,  the  Pattern  for  it  is  preceded  by 
the  STRING  "TUPLE": 

•DECL  ("VALUE*  FIX  "1UPLE"  <TUPLE  [REST  FIX]>) 

If  the  arguments  are  to  be  nucvaluated  and  gathered  into  a LIST,  or  if  the  calling  FORM  is  the  only 
"argument",  the  Pattern  is  preceded  hy  flic  appropriate  STRING: 

#DECL  ("VALUE"  FIX  "ARGS"  LIST) 

eniCL  ("VALUE"  TIX  "CALL"  <PRIMTYPE  LIST>) 

In  every  case  the  special  indicator  STRING  is  followed  by  a Pattern  which  describes  the  argument, 
even  though  it  may  sometimes  produce  fairly  ludicrous  results,  since  the  Pattern  for  "TUPLE"  alway* 
must  be  a TUPLE;  for  "ARGS",  a LIST;  and  for  "CALL",  a FORM  or  SEGMENT. 
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Chapter  15.  Lexical  Blocking 


Lexical,  nr  Mafic.  blocking  is  another  means  of  preventing  identifier  collisions  in  MDL.  (The  first 
was  dynamic  blocking  - binding  and  ENVIRONMENTS.)  Dy  using  a subset  of  the  MDL  lexical 
blocking  facilities,  the  "block  structure"  of  such  languages  as  Algol,  PL/1,  SAIL,  etc.,  can  be 
simulated,  should  you  wish  to  do  so. 


15.1.  Basic  Considerations 

Since  what  follows  appears  to  be  rather  complex,  a short  discussion  of  the  basic  problem  lexical 
blocking  solves  and  MDL's  basic  solution  will  be  given  first. 

ATOMs  are  identifiers.  It  is  thus  essential  that  whenever  you  type  an  ATOM,  READ  should  respond 
with  the  it  it  i<|tii*  identifier  you  wish  to  designate.  The  problem  is  that  it  is  unreasonable  to  expect 
the  PNAMts  of  all  AIOIls  m he  unique.  When  you  use  an  ATOM  A in  a program,  do  you  mean  the  A 
you  typed  two  minutes  ago,  the  A you  used  in  another  one  of  your  programs,  or  the  A used  by  some 
library  program? 

Dynamic  blocking  (pushing  down  of  LVALs)  solves  many  such  problems.  Hosvever,  there  are  some 
which  it  does  not  solve  - such  as  state  variables  (whether  impure  or  pure).  Major  problems  with  a 
system  having  only  dynamic  blocking  usually  arise  only  when  attempts  are  made  to  share  large 
numbers  of  significant  programs  among  many  people. 

The  solution  usrd  in  MDI  is  basically  as  follows:  READ  must  maintain  at  least  one  table  of  ATOMS  to 
guarantee  any  uniqueness..  So.  MDL  allows  many  such  tables  and  makes  it  easy  for  the  user  to 
specify  which  one  is  wanted.  Such  a table  is  an  object  of  TYPE  OBLIST  ("object  list").  All  the 
complication  which  follows  arises  nut  of  a desire  to  provide  a powerful,  easily  used  method  of 
working  with  (Till  IS  Is.  with  reasonable  values  used  by  default. 


15  • 15.1 


Lexical  Blocking 


The  MDI.  Programming  I anguage 


IS9 


15.2.  polish 

An  0BLIS1  is  of  PRUITYPt  UVLC10R  with  UTYPE  LIST;  the  LIST*  hold  ATOM*.  (The  ATOM*  are  ordered 
by  a hash  ending  on  their  PNAMEs:  each  LIST  i*  a hashing  bucket.)  What  follow*  is  information 
about  OIM  IS H as  Mich. 


15.2.1.  ORLIST  Names 

Every  normally  coustitutrri  OIU  1ST  ha*  a name.  The  uaine  of  an  OBLIST  is  an  ATOM  associated  with 
the  OBLIST  under  the  indicator  0UL1ST.  Thu*. 

<GUPROP  o/»/»s I 0BLIST> 

or 

<t;ri  ohhr.t  OIU.) ST > 
return*  the  name  of  a bint. 

Similarly,  evrry  name  of  an  OBLIST  i*  associated  with  its  OBLIST,  again  under  the  indicator 
OBLIST.  so  that 

< GET PROP  oblist-iumeutom  OBLIST) 

or 

<G.n  ohli$t-tuune:*tom  OBLIST) 
returns  the  OBLIST  whose  name  is  oblist-rutme. 

Since  there  is  nothing  special  about  the  association  of  OBLISTs  and  their  name*,  the  name  of  an 
OBLIST  can  he  changed  by  use  of  PUT  PROP , both  on  the  OBLIST  and  its  name.  It  i*  not  wise  to 
change  t he  0BL1S1  association  without  changing  the  name  association,  since  you  are  likely  to 
confuse  RLAD  and  PRINT  terribly. 

Von  can  also  use  PHI  or  PUT  PROP  to  remove  the  association  between  an  OBLIST  and  its  name 
completely.  If  you  want  the  OBLIST  to  go  away  (be  garbage  collected),  and  you  want  to  keep  it* 
name  around,  this  must  he  done:  otherwise  the  association  will  force  it  to  stay,  even  if  there  are  no 
other  references  to  it.  (If  you  have  no  references  to  cither  the  name  or  the  OBLIST  (an  ATOM  - 
including  a TYPl  name  -•  points  to  its  OBI  1ST),  both  of  them  -•  and  their  association  — will  go  away 
without  your  having  to  remove  t he  association,  of  course.)  It  is  not  recommended  that  you  remove 
the  name  of  an  OBLIST  without  having  it  go  away,  since  then  ATOM*  in  that  OBLIST  will  PRINT  the 
same  as  if  they  were  in  no  OBI  1ST  - which  is  defeating  the  purpose  of  this  whole  exercise. 
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15.2.2.  MOBL1S1 

<MOBLIST  atom  fix > 

("make  "Wist")  creates  and  returns  a new  OBLIST,  containing  no  ATOM*,  whose  name  is  Mom.  unless 
there  already  exists  an  OBLIST  of  that  name,  in  which  case  it  returns  the  existing  OBLIST.  fix  is  the 
size  of  the  OR|  1ST  created  - the  number  of  hashing  buckets,  fix  is  optional  (ignored  if  the  OBLIST 
already  exists),  13  by  default.  If  specified,  fix  should  be  a prime  number,  since  that  allows  the 
hashing  to  work  better. 


15.2.3.  OBLIST? 

< OBLIST?  Mom> 

returns  *T Al  SF  ( ) if  Mom  is  not  in  any  OBLIST.  If  Mom  is  in  an  OBLIST.  it  returns  that  OBLIST. 


15.3.  RFAD  and  OBI  IS  Is 

READ  can  be  explicitly  told  to  look  up  an  ATOM  in  a particular  OBLIST  by  giving  the  ATOM  a trailer. 
A trailer  consists  or  the  characters  !-  (cxclaiuation-point  dash)  following  the  ATOM,  immediately 
followed  by  tbe  name  of  the  OBLIST.  For  example, 

A! -OB 

specifies  the  unique  ATOM  of  PNAHE  A which  is  in  the  OBLIST  whose  name  is  the  ATOM  OB. 

Note  that  the  name  of  the  OBLIST  must  follow  the  !-  with  no  separators  (like  space,  tab.  carriage- 
return.  etc.).  There  is  a name  used  by  default  (section  15.5)  which  types  out  and  is  typed  in  as 
! -separator. 

Trailers  can  be  used  recursively: 

B! -A! -OB 

specifies  the  unique  ATOM  of  PNAME  B which  is  in  the  OBLIST  whose  name  is  the  unique  ATOM  of 
PNAME  A which  is  in  the  OBLIST  whose  name  is  OB.  (Whew!)  The  repetition  is  terminated  via  the 
look-up  and  insertion  described  below. 

If  an  ATOM  with  a given  PNAME  is  not  found  in  the  OBLIST  specified  by  a trailer,  a new  ATOM  with 
that  PNAME  is  created  and  inserted  into  that  OBLIST. 


If  an  OBLIST  whose  name  is  given  in  a trailer  does  not  exist,  READ  creates  one.  of  length  13  buckets. 
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If  trailer  notation  is  not  turd  (the  "normal"  case),  and  for  an  ATOM  that  terminates  a trailer.  READ 
looks  up  the  I’NAMI  of  the  ATOM  in  a LIST  of  OBLISTs,  the  LVAL  of  the  ATOM  OBLIST  by  default.  This 
look-up  starts  with  <1  .OBl  lST)  and  continues  until  .OBLIST  is  exhausted.  If  the  ATOM  is  not 
found.  REAP  usually  inserts  it  into  <1  .OBLIST).  (It  is  possible  to  force  READ  to  use  a different 
element  of  the  LIST  of  OBLISTs  for  new  insertions.  If  the  ATOM  DEFAULT  is  in  that  LIST,  the 
OBLIST  following  that  ATOM  will  be  used.) 


15.4.  PRIM  I and  0111  I. Sis 

When  PRINT  is  given  an  ATOM  to  output,  it  outputs  as  little  of  the  trailer  as  is  necessary  to  specify 
the  ATOM  uniquely  to  REAP.  That  is.  if  the  ATOM  is  the  fjrst  ATOM  of  that  PNAME  which  READ  would 
find  in  its  normal  look-up  in  the  current  .OBLIST,  no  trailer  is  output.  Otherwise,  !-  is  output  and 
the  name  of  the  OBLIST  is  recursively  PRINled. 


Warning:  there  are  obscure  cases,  which  do  not  occur  in  normal  practice,  for  which  the  PRINT  trailer 
recursion  dors  not  terminate.  For  instance,  if  an  ATOM  must  have  a trailer  printed,  and  the  name  of 
the  OBLIST  is  an  ATOM  in  that  very  same  OBLIST,  death.  Any  similar  circular  case  will  also  give 
PRINT  a hernia. 


15.5.  Initial  State 


In  an  initial  MIX..  .OBLIST  contains  two  OBLISTs.  <1  .OBLIST)  initially  contains  no  ATOMs.  and  <2 
.OBLIST)  contains  all  the  ATOMs  whose  GVALs  are  SUBRs  or  FSUBRs.  as  well  as  OBLIST,  DEFAULT,  T, 
etc.  It  is  dilfirult  to  lose  track  of  the  latter:  the  specific  trailer  ! -separator  will  always  cause 
reference  to  that  OBI  1ST.  In  addition,  the  SUBR  ROOT,  which  takes  no  arguments,  always  returns 
that  OBLIST. 

The  name  of  <R00D  is  ROOT ; this  ATOM  is  in  (ROOT)  and  would  cause  infinite  PRINT  recursion  were 
it  not  for  the  use  of  ! -separator.  The  name  of  the  initial  <1  .OBLIST)  is  INITIAL  (really 
INITIAL!-  ). 

The  ATOM  OBLIST  also  has  a OVAL.  .OBLIST  is  initially  the  same  as  .OBLIST;  however.  .OBLIST  is 
not  affected  by  the  SUBRs  used  to  manipulate  the  OBLIST  structure.  It  is  instead  used  only  when 
errors  occur. 

In  the  case  of  an  error,  the  current  .OBLIST  is  checked  to  see  if  it  is  "reasonable"  - that  is.  contains 
nothing  of  the  wrong  TYPE.  (It  is  reasonable,  but  not  standard,  for  .OBLIST  to  be  a single  OBLIST 
instead  of  a LIST  of  them.)  If  it  is  reasonable,  that  value  stays  current.  Otherwise.  OBLIST  is  SET  to 
.OBLIST.  Note  that  changes  made  to  the  OBLISTs  on  .OBLIST  --  for  example,  new  ATOMs  added  -- 
remain.  If  even  .OBLIST  is  unreasonable.  OBLIST  is  SET  and  SETGed  to  its  initial  value.  <ERRET> 
(section  16. 1)  always  assumes  that  .OBLIST  is  unreasonable. 


15.3  - 15.5 
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Three  other  OBI  1SI»  exist  in  a virgin  MDL:  their  names  and  purpose*  are  as  follows: 

ERRORS! - contains  ATOtls  whose  PNAMEs  are  used  as  error  messages.  It  is  returned  by  < ERRORS). 

IN  I ERROR  IS ! - is  used  by  the  interrupt  system  (section  *1.5.1),  It  is  returned  by 
<INTERRUPIS>. 

HOOOII  is  useil  infrequently  by  the  interpreter  when  loading  compiled  programs  to  fix  up 
references  to  locations  within  the  interpreter. 

The  pre-loading  of  compiled  programs  may  create  other  OBLISTs  iu  an  initialited  MDL  (Lebline. 
1*79).  / * 

15.6.  Bl  OCR  and  I Ultlll  OCK 

These  SUBRs  are  .ntalogniis  to  begin  and  end  in  Algol,  etc.,  in  the  way  they  manipulate  static 
blocking  (and  in  no  other  way). 

<Bt  OCR  Icok-up.-lisl-of-oblisls > 

returns  its  argument  after  "pushing*  the  current  LVAL  of  the  ATOM  OBLIST  and  making  its  argument 
the  current  I VAI  . ^ on  usually  want  <ROOT>  to  be  an  element  of  look-up,  normally  its  last. 

<rNOBlOCK> 

pops  the  LVAL  of  the  A ION  0BLIS1  and  returns  the  resultant  LIST  of  OBLISTs. 

Note  that  this  pushing  and  "popping"  of  .OBLIST  is  entirely  independent  of  functional 
application,  binding,  etc. 


15.7.  Stll’.R  'Assoc  in  ted  \y  it  h lexical  niockinc 


15.7.1.  Rl  AP  (again) 

<RfA0  channel  cot-rouhnc  look-up') 

This  is  a fuller  call  to  RfAH.  look-up  is  an  OBLIST  or  a LIST  of  them,  used  as  stated  in  section  I5.J 
to  look  up  A I Otis  and  insert  them  iu  OBLISTs.  If  it  is  not  specified.  .OBLIST  is  used.  See  also 
sections  II.  1.1. 1.  II. 5.  and  17.1.3  for  other  arguments. 


15.5-  15.7.1 
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15.7.2.  PARSE  ami  L PARSE  (again) 

< PARSE  shin; r rxinefix  look-up > 

at  was  previously  mentioned,  applies  READ'S  algorithm  to  string  and  returns  the  first  MDL  object 
resulting.  This  includes  looking  up  prospective  ATOMs  on  look-up,  if  given,  or  .OBLIST.  LPARSE  can 
be  called  in  the  same  way.  See  also  sections  7.6.B.2  and  I7.I.S  for  other  arguments. 

15.7.3.  IOOMIP 

CLOOUJP  stung  obiist > 

returns  the  A10.M  of  PNAMI  slnng  in  the  OBLIST  obiist,  if  there  is  such  an  ATOH;  otherwise,  it  returns 
#FALSE  ( ) . If  string  would  PARSE  into  an  A10M  anyway.  LOOKUP  is  faster,  although  it  looks  in  only 
one  OBLIST  instead  of  a LIST  of  them. 


15.  4.  ATOM 

sATOH  string > 

creates  and  returns  a spanking  new  A10M  of  PNAHE  string  which  is  guaranteed  not  to  be  on  any 
OBLIST. 

An  A10M  which  is  not  on  any  OBLIST  is  PRINTcd  with  a trailer  of  !-#FALSE  ( ). 


15.7.5.  Rl  MOV! 


< REMOVE  slung  obiist  > 


removes  the  ATOM  of  PNAMT  string  from  obiist  and  returns  that  ATOM.  If  there  is  no  such  ATOH, 
REMOVE  returns  *FAISE  ( ).  Also. 
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create.  ...»  ATOM  of  PMAHr  string,  inserts  it  into  obtist  and  returns  it.  If  there  is  already  an  ATOM  with 
a>  ■,ta - — — — «•>  •• 


<OR  < LOOKUP  * trine.  obi,sf>  < INSERT  string  ob/ist» 

OGl'tst*  I,4SFR|  can  ali0  ,aFf  an  ATOM  as  its  first  argument:  this  ATOM  must  not  be  on  any 

OOLISI  - „ |„vr  >,cc„  RCMOVCd.  or  j,,„  croted  b,  ATOM  - «l„  „,M  Mcu„  T,“  -*"* 

..7,'"cZ, ‘I0"  *"  °“tIST  "•*'  ,E«>  *”“« 


15.7.7.  PMAHi 


< PMAMt  »tom> 


PNAMP  ,1  ‘ }’  CrP‘VCd)  Which  is  a'om’s  PNAMF  (’printed  name*).  If  trailers  are  not  needed 

PRrwr  'l  ""'V  faMer  UHPARSE  *tom-  <*»  fac‘  UNPARSE  has  to  go  all  the  way  through  the 
INT  algorithm  twice,  the  first  time  to  see  how  long  a STRING  is  needed.)  * 8 


15.7.8.  SPNANE 


SPNAMf  ("shared  printed  name*)  i,  identical  to  PNAME , except  that  the  STRING  it  returns  shares 

....o iz  sVrTto h * ""  s,r,"c  *<"  »»■  ■*  -»««*-• 


j5.-8.  F-xaJPl>Ltj.A.lL,P.lllI  ^gliilinii  to  the  INC  Problem 


~ an,C,e  0f  ",e  ."**  001  ISTs  arf  “"ormally*  used  to  provide  “externally 
. . « ,v  au  <Kal  AT®Hs  which  are  not  so  readily  available  externally.  Lebline  (1979) 

describes  a systematic  way  to  accomplish  the  same  thing  and  more.  * 8 


<MOBUS!  1NC0  1> 

; "Create  an  ObtlST  to  hold  your  external  symbols. 
Its  name  is  INCO! -INITIAL! - .• 


INCI-1MC0 

;"Put  your  external  symbols  into  that  OBLIST. 

If  you  have  many,  just  write  them  successively." 
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<BLOCK  ( <M0BL1ST  INCI! -INCO  1>  <GET  1NC0  0BLIST>  <R00T>)> 

;"Creale  a local  OBLIST,  naming  It  INCII-INCO,  and  set  up  .OBLIST  for 
roadinq  in  your  program.  The  OBLIST  INCO  is  Included  In  the  BLOCK  so 
that  as  your  external  symbols  are  used,  they  will  be  found  in  the 
right  place.  Note  that  the  ATOM  INCO  is  not  in  any  OBLIST  of  the 
BLOCK;  therefore,  trailer  notation  of  l-INCO  will  not  work  within  the 
current  BLOCK -FNDBLOCK  pair." 

< DEFINE  INC  ; "INC  is  found  in  the  INCO  OBLIST." 

(A)  ;"A  is  not  found  and  is  therefore  put  into  INCI  by  READ." 

fllFCL  ((VALUE  A)  <0R  FIX  F10AT>) 

<SET  .A  <♦  ..A  1>>>  ;"Al  1 other  ATOMs  are  found  in  the  ROOT." 
<ENOBLOCK> 

This  example  is  rather  trivial,  hut  it  contains  all  the  issues,  of  which  there  are  three. 

The  first  idea  is  that  you  should  create  two  OBLISTs.  one  to  hold  ATOMs  which  are  to  be  known  to 
other  users  (INCO).  and  the  other  to  hold  internal  ATOMs  which  are  not  normally  of  interest  to  others 
(INCI).  The  case  above  has  one  ATOM  in  each  category. 

Second.  INCO  is  explicitly  used  with  out  trailers  so  that  surrounding  BLOCKS  and  ENDBLOCKs  will  have 
an  effect  on  it.  Thus  INCO  will  he  in  the  OBLIST  desired  by  the  user:  INC  will  be  in  INCO,  and  the 
user  can  refer  to  it  by  saying  INC! -INCO;  INCI  will  also  be  in  INCO,  and  can  be  referred  to  in  the 
same  wav:  finally.  A is  really  A! -INCI! -INCO.  The  point  of  all  this  is  to  structure  the  nesting  of 
OBLISTs/ 

Finally,  if  for  some  reason  (like  saving  storage  space)  you  wish  to  throw  INCI  away,  you  can  follow 
the  ENDBLOCK  with 


< REMOVE  "INCI"  <GET  INCO  OBLIST» 

and  thus  remove  all  references  to  it.  The  ability  to  do  such  pruning  is  one  reason  for  structuring 
OBLIST  references. 

Note  that,  even  after  removing  INCI,  you  can  "get  A back"  - that  is.  be  able  to  type  it  in  — by 
saying  something  of  the  form 

< INSERT  <1  <1  , INC!  -INCO»  <1  .OBLIST» 

thereby  grabbing  A out  of  the  structure  of  INC  and  rc-inserting  it  into  an  OBLIST.  However,  this 
resurrects  the  name  collision  caused  by  <INC!-INC0  A>. 


15.8 
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Chapter  16.  Errors,  Frames,  etc. 


16.1.  LISTEN 


This  SUBR  Jakes  any  number  of  arguments.  It  first  checks  the  LVALs  of  INCHAN,  OUTCHAN,  and 
OBLIST  for  reasonability  and  terminal  usability.  In  each  case,  if  the  value  is  unreasonable,  the  ATOM 
is  rebound  to  the  corresponding  GVAL,  if  reasonable,  or  to  an  invented  reasonable  value.  LISTEN 
then  does  <TTYECHO  .INDIAN  T>  and  <ECH0PAIR  .INCHAN  ,OUTCHAN>.  Next,  it  PRINT*  its 
arguments,  then  PR  INIs 

LISTENING-AT-LEVEL  / PROCESS  p 

where  / is  an  integer  (FIX)  which  is  incremented  each  time  LISTEN  is  called  recursively,  and  p is  an 
integer  identifying  the  PROCESS  (chapter  20)  in  which  the  LISTEN  was  EVALed.  LISTEN  then  doe* 
<APPLY  < VALUE  REP».  if  there  is  one.  and  if  it  is  APPLICABLE.  If  not.  it  applies  the  SUBR  REP 
(without  making  a new  I RAMI  - see  below).  This  SUBR  drops  into  an  infinite  READ-EVAL-PRINT  loop, 
which  can  be  left  via  ERRET  (section  16.4). 

The  standard  LISTTN  loop  has  two  features  for  getting  a handle  on  objects  that  you  have  typed  in 
and  MDL  has  typed  out.  If  the  ATOM  L-INS  has  a local  value  that  is  a LIST,  LISTEN  will  keep 
recent  inputs  (what  READ  returns)  in  it.  most  recent  first.  Similarly,  if  the  ATOM  L-OUTS  has  a local 
value  that  is  a LIST.  LISTEN  will  keep  recent  outputs  (what  EVAL  returns)  in  it.  most  recent  first. 
The  keeping  is  done  before  the  PRINTing.  so  that  ~S  does  not  defeat  its  purpose.  The  user  can 
decide  how  much  to  keep  around  by  setting  the  length  of  each  LIST.  Even  if  L-OUTS  is  not  used, 
the  atom  LAST-OUT  is  always  SET  to  the  last  object  returned  by  EVAL  in  the  standard  LISTEN  loop. 
Example: 


<SET  L-INS  (NEWEST  NEWER  NEW)>S 
(NEWEST  NEWER  NEW) 

.L-INSS 

( .L-INS  NEWEST  NEWER) 

<SET  FOO  69>S 
69 

<SET  FIXIT  <2  ,L-INS»  ;*grab  the  last  Input*! 

<SET  FOO  69> 
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•l-INSS 

(.i-in.s  <sct  rrxn  <2  .l-ins»  <set  foo  69>) 

<PUI  .»  IXIJ  3 105>S 
<SE I FOO  1 0 5 > 

<CVAl  .FI  XI • /S 
I0S 

.l-INSS 

( . L- IMS  <EVAl  ,FIXIT>  <PUT  .FIXIT  3 105>) 

.F005 

10S 


16.2.  ERROR 

This  SUBR  is  the  s.vnic  as  l ISTEN,  except  that  (I)  it  generates  an  interrupt  (chapter  21).  if  enabled, 
and  (2)  it  I'Rlfils  *[  RROR*  before  PRINTing  its  arguments. 


When  any  SUBR  or  ESUBR  detects  an  anomalous  condition  (for  example,  its  arguments  are  of  the 
wrong  TYIT'.  it  tails  ERROR  with  at  least  two  arguments,  including: 

(h  an  A 1 OH  whose  I’NAMF  describes  the  problem,  normally  from  the  OBLIST  ERRORS!  - (appendix 

I). 

(21  the  ATOM  that  names  the  SUBR  or  ESUBR,  and 
(31  any  other  information  of  interest. 

and  then  returns  whatever  thr  call  to  ERROR  returns.  Exception:  a few  (for  example  DEFINE)  will 
take  ftu titer  action  that  depends  on  the  value  returned.  This  non-standard  action  is  specified  in  the 
error  message  (fitsi  ERROR  argument). 


16.3.  FRAME  (the  T YPLI 

A FRAMt  is  the  object  placed  on  a PROCESS’S  control  stack  (chapter  20)  whenever  a SUBR,  FSUBR, 
RSUBR,  or  RSUI1R-I.N1RY  (chapter  19)  is  applied.  (These  objects  are  herein  collectively  called 
"Subroutines".)  It  contains  information  describing  what  was  applied,  plus  a TUPLE  whose  elements 
are  the  arguments  to  the  Subroutine  applied.  If  any  of  the  Subroutine's  arguments  are  to  be 
evaluated,  they  will  have  been  by  the  time  thr  TRAME  is  generated. 

A FRAME  is  an  anomalous  TYPE  in  the  following  ways: 

(1)  It  cannot  he  typed  in.  It  can  be  generated  only  by  applying  a Subroutine. 

(2)  It  docs  not  type  out  in  any  standard  format,  but  rather  as  #FRAME  followed  by  the  PNAME  of 
the  Subroutine  applied. 


16.1  - 16.3 
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<ARCS  fr mi* > 

( arguments')  returns  ilir  argument  TUPIE  of  frame. 
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vTlKSCl  fr ,'rnr > 

("fund ion")  returns  ilir  A10M  whose  C/LVAL  is  being  applied  in  frame. 


16.1  3.  I RAMI  (Du-  SHItR) 

< I RAMI  »»amr> 

reinrii'  ilir  I RAMI  Marked  before  frame  or.  if  ilicre  is  none,  it  will  generate  an  error.  The  oldest 
(lowest)  1 KAMI  ,l,;"  «'»••  be  refill  lied  witlioui  error  liar  a MJNCT  of  TOPLLVEL.  If  called  with  no 
arguments  I RAMI  telimis  llie  topmost  I RAMI  used  in  an  application  of  ERROR  or  LISTEN,  wbicli  waa 
bound  by  Hie  inteipirlcr  to  (lie  AIOM  URR\  l-lNURRUP(SOa«  error"). 


16.3. -I.  Examples 

Say  you  have  gotten  an  error.  T on  can  now  type  at  l RROR's  LISTEN  loop  and  get  tilings  EVALed. 
For  example, 

<rUNCT  (1  RAMI >>J 
I RROR 

<1  UNCI  <1  RAMI  <t  RAMI  »>S 

Ihr  n.imr  of- the  Suhunitmc  \%hich- c*llcd-LPROR:*tom 

< ARCS  < f RAMf  <f  RAMI >>>J 

tho-atrumenMo  the  Sutfrouhnr  whuh-t  died  [RhVR:lupl» 


16. -I.  I RKI  I 

<1 RRf  T .mi  frame > 

Tliis  SMItR  ("erroi  reliirn")  (I)  causes  the  coniiol  stack  to  be  stripped  down  to  the  level  of  frame,  and 
(2)  then  reiutns  am.  The  net  result  is  that  Hie  application  which  generated  frame  is  forced  to  return 


16.1 1 • 16  4 


Errors,  Frames,  etc. 


r 


The  Mill,  Programming  Language 


^riy.  Additional  side  cf frets  that  would  have  happened  ill  the  absence  of  ail  error  may  not  have 
happened. 

The  second  argument  to  rRRET  is  optional,  by  default  the  FRAME  of  the  last  invocation  of  ERROR  or 
LISTEN. 

If  F.RRI  I is  called  with  tin  arguments,  it  drops  you  all  the  way  down  to  the  bottom  of  the  control 
stack  — hefoie  the  level-1  LISTEN  loop  and  then  calls  LISTEN.  As  always,  LISTEN  first  ensures  that 
MDL  is  receptive. 

Examples: 

<•  3 <♦  a 1»S 

•I  RROR* 

ARG- WRONG -TYPE 
♦ 

i I S IT NIIIG-AT-I CVFL  2 PROCCSS  1 
sARGS  < FRAME  <1  RAMI  »>S 
la  1 ] 

<ERRET  S>J  ;"This  causes  the  ♦ to  return  5." 

!•>  ;"finnlly  returned  by  the  *" 

Note  that  when  you  are  in  a call  to  ERROR,  the  most  recent  set  of  bindings  is  still  in  effect.  This 
means  that  you  can  examine  values  of  dummy  variables  while  still  in  the  error  state.  For  example. 

< DEFINE  I (A  "AUX"  (U  "a  string")) 

'DECL  ((VALUE)  LIST  (A)  STRUCTURED  (B)  SIRING) 

(.B  <RFST  .A  2>)  ;"Return  this  LIST."  >S 
E 

<r  '(i)>s  a 

"I  RROR* 

Otll-OI  -BOUNDS 
REST 

E ISTENIMG-AT-LCVEE  2 PROCESS  1 
.AS 
(1) 

.BE 

"a  string" 

<1  RRLT  ’(!>)>  ; "Make  the  REST  return  (5)."S 

("a  siring"  (5)) 
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16.5.  RETRY 

< RE TRY  ft  •»/*<<■  > 

causes  the  rnniml  Mark  to  lie  stripped  down  just  beyond  frtme,  and  then  causes  the  Subroutine  call 
that  generated  fr.imc  to  he  done  again,  /ume  is  optional,  by  default  the  FRAME  of  the  last  invocation 
of  ERROR  or  LISTEN.  RETRY  differs  from  AGAIN  in  that  (I)  it  is  not  intended  to  be  used  in  programs; 
(2)  it  can  retry  any  old  frvme  (any  Subroutine  call),  whereas  AGAIN  requires  an  ACTIVATION  (PROG  or 
REPEAI  or  MACI"):  and  (3)  if  it  retries  the  IVAL  of  a FORM  that  makes  an  ACTIVATION,  it  will  cause 
rebinding  in  the  argument  LIST,  thus  duplicating  side  effects. 


16.6.  UNWIHP 

HNWI  NO  is  an  I SOUR  that  takes  two  arguments,  usually  fORMs.  It  EVALs  the  first  one,  and,  if  the  EVAL 
returns  normally,  the  value  of  the  I VAI  rail  is  the  value  of  UNWIND.  If.  however,  during  the  EVAL  a 
lion-local  return  attempts  to  return  below  the  UNWIND  FRAME  in  the  control  slack,  the  second 
argument  is  rVAIed.  its  value  is  ignored,  and  the  non-local  return  is  completed.  The  second 
argument  is  evaluated  in  the  riiviioument  that  was  present  when  the  call  to  UNWIND  was  made.  This 
facility  is  useful  for  cleaning  up  data  liases  that  are  in  inconsistent  states  and  for  closing 
temporary  CHANNELS  that  may  he  left  around.  FIOAD  sets  up  an  UNWIND  to  close  its  CHANNEL  if  the 
user  attempts  to  I RRT  1 without  finishing  the  T10AD.  Example: 

<PEF  INE  CHAN  AC1  ("AUX"  (C  <0PIN  "READ"  "A  FILE">)) 

*DECL  ((C)  COR  CHANNEL  FALSE > ...) 

< CONO  ( .C 

< UNWIND  < PROG  ()  ...  CCLOSE  .C» 

CCLOSE  .C»)» 


16.7.  Conti ol-(.  red 

Typing  eontroi  r.  re.,  < ASC 1 1 />)  at  MDL  causes  it  to  act  just  as  if  an  error  had  occurred  in 
whatever  was  currently  being  done.  Ton  can  then  examine  the  values  of  variables  as  above, 
continue  hy  applying  ERR!  I m one  argument  (which  is  ignored).  RETRY  a FRAME  lower  on  the  control 
stack,  or  flush  everything  by  applying  LRRLT  to  no  arguments. 
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16.8.  Comrol  S rs\ 

Typing  conlrn|-S  (AS,  <ASCII  19>)  at  MDL  causes  it  to  stop  what  is  happening  and  return  to  the 
FRAME  . LERR\  ! -INTERRUPTS,  returning  the  ATOM  T.  (In  the  Tenex  and  Tops-20  versions.  ''O  also 
has  the  same  effect.) 


16.9.  OVERFLOW 

< OX/l  Rl  I OW  fslsc-or-*ny> 

There  is  one  error  that  can  he  disabled:  numeric  overflow  and  underflow  caused  by  the  arithmetic 
SlIBRs  (♦,  *,  /)■  The  SUBR  OVERFLOW  takes  one  argument:  if  it  is  of  TYPE  FALSE, 

under/overf low  errors  are  disabled:  otherwise  they  are  enabled.  The  initial  state  is  enabled. 
OVERFLOW  returns  T or  #FALSE  ().  reflecting  the  previous  state.  Calling  it  with  no  argument 
returns  the  current  state. 
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Chapter  17.  Macro-operations 


17.1.  READ  Macros 


17.1. 1.  X and  XX 

The  tokens  X and  XX  arc  interpreted  by  READ  in  such  a way  as  to  give  a “macro"  capability  to  MDL 
similar  to  l’L/l's. 

Whenever  READ  encounters  a single  X - anywhere,  at  any  depth  of  recursion  -•  it  immediately. 
without  looking  at  the  rest  of  the  input,  evaluates  the  object  following  the  X.  The  result  of  that 
evaluation  is  used  by  READ  in  place  of  the  object  following  the  X.  That  is.  X means  "don’t  really 
READ  this,  use  I VAI  of  it  instead."  X is  often  used  in  files  in  front  of  calls  to  ASCII,  BITS  (which 
see),  etc.,  although  when  the  FUNCTION  is  compiled  the  compiler  will  do  the  evaluation  if  the 
arguments  are  constant.  Also  seen  is  X. INCHAN,  read  as  the  CHANNEL  in  use  during  LOAD  or  FLOAD; 
for  example,  <PUT  X.INCIIAN  18  8 > causes  succeeding  FIXes  to  be  read  as  octal. 

Whenever  READ  encounters  XX,  it  likewise  immediately  evaluates  the  object  following  the  XX. 
However,  it  completely  ignores  the  result  of  that  evaluation.  Side  effects  of  that  evaluation  remain, 
of  course. 

Example: 


<01  FINE  SETUP  ( ) <SET  A 0>>J 
SETUP 

<DEF INF  NXT  ()  <SET  A <♦  .A  1»>S 
NXT 

[ XX< SETUP)  X<NXT>  X<NXT>  (XX<SETUP>)  X<NXT>]S 
[1  2 ()  1] 
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17.1.2.  LINK 

<LINK  exp:#ny  string  oblist} 

|1 

creates  an  object  of  TYPE  LINK,  PR1MTYPE  ATOM.  A LINK  looks  vaguely  like  an  ATOM;  it  has  a 
PNAME  (the  stung  argument),  resides  in  an  OBLIST  (the  oblist  argument)  and  has  a "value"  (the  exp 
argument).  A l INK  has  the  strange  property  that,  whenever  it  is  encountered  by  READ  (that  is,  its 
PNAME  is  read,  just  lil.e  an  A10M,  possibly  with  OBLIST  trailers),  READ  substitutes  the  LINK’S  "value" 
for  the  LINK  immediately.  The  effect  of  READing  a LINK’S  PNAME  is  exactly  the  same  as  the  effect  of 
reading  its  "value". 

] 

The  obhst  argument  is  optional.  <1  .OBLIST)  by  default.  LINK  returns  its  first  argument.  The 
LINK  is  created  via  INSERT,  so  an  error  results  if  there  is  already  an  ATOM  or  LINK  in  oblist  with  the 
same  PNAME . 

The  primary  use  of  LlNKs  is  in  interactive  work  with  MDL:  expressions  which  are  commonly  used, 
but  annoyingly  long  to  type,  can  be  "linked"  to  PNAMEs  which  are  shorter.  The  standard  example  is 
the  following: 

<LINK  '<ERRET>  MAEM  <R00T» 

which  links  the  A10M  of  PNAME  AE  in  the  ROOT  OBLIST  to  the  expression  <ERRET>. 

17.1.3.  Program-defined  Macro-characters 

During  READing  from  an  input  CHANNEL  or  PARSEing  a STRING,  any  character  can  be  made  to  have 
a special  meaning.  A character  can  cause  an  arbitrary  routine  to  be  invoked,  which  can  then  return 
any  number  of  elements  to  be  put  into  the  object  being  built  by  READ,  PARSE,  or  LPARSE. 

Translation  of  characters  is  also  possible.  This  facility  was  designed  for  those  persons  who  want  to 
use  MDL  READ  to  do  large  parts  of  their  input  but  have  to  modify  its  actions  for  some  areas:  for 
example,  one  might  want  to  treat  left  and  right  parentheses  as  tokens,  rather  than  as  delimiters 
indicating  a LIST. 

17.1.3.1.  READ  (finally) 

Associated  with  RTAD  is  an  ATOM,  RCAD-TABLE! -,  whose  local  value,  if  any,  must  be  a VECTOR  of 
elements,  one  for  each  character  up  to  and  including  all  characters  to  be  treated  specially.  Each 
element  indicates,  if  not  0,  the  action  to  be  taken  upon  READ’S  encounter  with  that  character.  A 
similar  VECTOR,  the  local  value  of  PARSE-TABLE!-,  if  any,  is  used  to  find  the  action  to  take  for 
characters  encountered  when  PARSE  or  LPARSE  is  applied  to  a STRING. 

These  tables  can  have  up  to  25G  elements,  one  for  each  ASCII  character  and  one  for  each  possible 
exclamation-point/ASCI (-character  pair.  In  MDL,  the  exclamation-point  is  used  as  a method  of 
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expanding  il*o  ASCII  character  vet,  and  an  exclamation -point/character  pair  is  treated  as  one  logical 
character  when  not  reading  a SIRING. 

The  element  corresponding  to  a character  is  <NTH  table  <♦  1 <ASCII  char>».  Tlie  element 
corresponding  to  an  exelaination-point/ASCII-cliaractcr  pair  is  <NTH  table  <♦  129  <ASCII  char>». 
The  table  can  he  shorter  than  256  elements,  in  which  case  it  is  treated  as  if  it  were  256  long  with  0 
elements  beyond  its  actual  length. 

An  element  of  the  tables  must  satisfy  one  of  the  following  DECL  Patterns: 

0 indicates  that  no  special  action  is  to  be  taken  when  this  character  is  encountered. 

CIIAKAt.il  K indicates  that  t lie  encountered  character  is  to  be  translated  into  the  given  CHARACTER 
whenever  it  appears,  except  when  as  an  object  of  TVPE  CHARACTER,  or  in  a STRING,  or 
immediately  following  a \. 

f IX  indicates  that  the  character  is  to  be  given  the  same  treatment  as  the  character  with  the 
ASC.H  value  of  the  TlX.  T his  allows  yon  to  cause  other  characters  to  be  treated  in  the  same 
nay  as  A-Z.  fm  example.  The  same  exceptions  apply  as  for  a CHARACTER. 

<1  1SI  I IX>  indicates  the  same  thing,  except  that  the  character  docs  not  by  itself  cause  a break. 
Then  (me.  if  it  occurs  when  reading  an  A10M  or  number,  it  will  be  treated  as  part  of  that  ATOM 
or  number. 


AIMT  it  Altl  I (m  one  argument)  indicates  that  the  character  is  to  be  a break  character.  Whenever 
it  is  eiuoiiiiieieil.  the  reading  of  the  emrent  object  is  finished,  and  the  corresponding  element 
ot  the  table  is  Al’I'L Yed  In  the  ASCII  CHARACTER.  (If  READ  is  called  during  the  application,  the 
cnd-nf-l  dr  slot  of  the  CHAIJNEl  temporarily  contains  a special  kind  of  ACTIVATION  (TYPE 
111  AHA)  so  ihai  rml-of-file  ran  lie  signalled  properly  to  the  original  READ.  Isn’t  that 
vvnndei  fill5)  I he  value  vet  min'd  is  taken  to  be  what  was  read,  unless  an  object  of  TYPE  SPLICE 
is  returned  It  so.  the  elements  of  this  object,  which  is  of  PRIMTYPE  LIST,  are  spliced  in  at  the 
point  "bne  M 1)1  is  reading.  An  empty  SPLICE  allows  one  to  return  nothing.  If  a structured 
object  is  mu  being  Imilt.  ami  a SIT  ICl  is  returned,  elements  after  the  first  will  be  ignored.  A 
SPl  IU  dining  reading  is  similar  to  a SEGMENT  during  evaluating,  except  that,  in  some  sense,  a 
SIT  ICl  says  "expand  me”,  whereas  the  structure  containing  a SEGMENT  says  "I  will  expand  you". 


<1  1ST  At  Ml  1 1 AMI  I > indicates  the  same  thing,  except  that  the  character  does  not  by  itself  cause 
a bieak.  ITierelore,  if  it  occurs  when  reading  an  ATOM  or  number,  it  will  be  treated  as  part  of 
that  A TOtl  or  number. 


READ  tales  an  additional  optional  argument,  which  is  what  to  use  instead  of  the  local  value  of  the 
ATOM  RLAD-TAIll  E as  the  VECTOR  of  read-macro  characters.  If  this  argument  is  supplied.  READ-TABLE 
is  rebound  to  it  within  the  call  to  READ.  READ  lakes  from  zero  to  four  arguments.  The  fullest  call  to 
RE  AO  is  thus: 
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(READ  ch.vmcl  cof-routinc  look-up  rcAd-tMewector) 

The  other  arguments  ate  explained  in  sections  II. 1.1. 1.  11.3.  and  15.7.1. 

ERROR  anil  L1S11  N rebind  RE  AD- 1 ABLE  to  the  GVAL  of  READ-TABLE,  if  any.  else  UNASSIGN  it. 
17.1.3.2.  Examples 

Examples  of  each  of  the  different  kinds  of  entries  in  macro  tables: 

<SET  RLAD-1ABIE  <IVECT0R  256  0»S 

[...] 

<IHIT  .RLAD-1ABLE  (♦  1 (ASCII  !\a»  !\A> 

; "CHARACTER:  translate  a to  A."S 

r-..i 

nbcS 

Abe 

< Pill  .III  AD- TABLE  <♦  1 (ASCII  <\X»  (ASCII  !\A» 

;"FIX:  make  X just  a normal  ASCII  character . "S 

I ...  J 
AXBCS 
A\XBC 

(PUT  .READ-TABLE  (♦  1 (ASCII  !\,>>  ((ASCII  !\,>)> 

;"(1.1ST  EIX>:  make  comma  no  longer  a break 
character,  but  still  special  if  at  a break. *$ 

1...1 
A.  LtS 
A\.H 

;"lhot  was  an  A l OH  with  t’NAME  A.B  ." 

MIS 

,B 

That  was  the  I ORM  (GVAL  B>  ." 

(PUT  .RCAll-TABLE  (■*•  1 (ASCII  !\:» 

fEUHCTIOM  ((X)  (LIST  COLON  (READ»)> 

; "Al'Pl  1 CABLE : make  a new  thing  like  ( < and  [ 

I...J 
B : AS 
B 

( coion  a) 

: : : I 00i» 

(COLON  (COION  (COION  TOO))) 
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<PIM  .Rl  AD-TAP.LE  <♦  1 < ASCI  I !\:>> 

'(-lUNCHON  ((X)  <1. 1ST  COLON  <READ»))> 

; "<l 1SI  APPl ICABLE>:  like  above,  but  not  a break 
now. "S 

I ...  1 

II : AS 
11:  A 

; "That  was  an  AIOM." 

: : :l  OOS 

< roi  ow  (i  oi  on  ( r oi  on  roo))) 

17.1.3.3.  PARS!  ami  U’ARSL  (finally) 

vI’AKSI  •:/<  .ii;;  look  up  par  sc-tablewector  look- ahead*  liar  acter) 

is  (ho  fullest  t all  m I'ARSf . PARSE  can  (al  e from  zero  to  five  arguments.  If  PARSE  is  given  no 
arguments,  it  mums  tlir  fiisi  object  parsed  from  (lie  local  value  of  the  STRING  PARSE-STRING  and 
additional!!  SI  Is  I’ARSI  -SIRING  to  die  STRING  having  those  CHARACTERS  which  were  parsed  RESTed 
off.  If  I’ARSI  is  given  a SIRING  lo  parse,  the  AION  PARSE-STRING  is  rebound  to  the  STRING  within 
that  call  If  the  /.  •-  lahie  argument  is  given  to  PARSE,  PARSE-TABLE  is  rebound  to  it  within  that 

call  to  PAR. SI  . I'iii ally,  PARSI  can  lake  a look-ahead  CHARACTER,  which  is  treated  as  if  it  were 
logically  concatenated  io  the  front  of  the  string  being  parsed.  Other  arguments  are  described  in 
sections  7. ti. ('.,!!  and  15.7.2. 

1. PARSI  is  exactly  Ide  PARSI  , except  that  it  tries  to  parse  the  whole  STRING,  returning  a LIST  of 
the  objects  created. 


1 7.2.  EVAI  Man  os 

An  EVAI  macro  pim  ides  the  convenience  of  a FUNCTION  without  the  overhead  of  calling.  SPECIAL*, 
etc.  in  the  compiled  version.  A special-purpose  function  that  is  called  often  by  FUNClIONs  that  will 
be  compiled  is  a good  candidate  for  an  EVAL  macro. 


17.2.1  111  I MAC  and  I XPANH 

DC  f MAC  t'dil  me  maim")  is  syntactically  exactly  the  same  as  DEFINE.  However,  instead  of  creating  a 
FUNCTION,  l»l  1 1 1 AC  creates  a MACRO . A MACRO  is  of  PR1MTYPE  LIST  and  in  fact  has  a FUNCTION  (or 
other  APPl  1 C Alii  I lYl’Mas  its  single  element. 

A MACRO  can  itsell  tie  applied  to  arguments.  A MACRO  is  applied  in  a funny  way.  however:  it  I* 
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EVALed  twice.  The  first  rVAl  causes  the  MACRO’S  element  to  be  applied  to  the  MACRO'S  arguments. 
Whatever  that  application  returns  (usually  another  FORM)  is  also  EVALed.  The  result  of  the  second 
EVALuatimi  is  the  result  of  applying  the  MACRO.  EXPAND  is  used  to  perform  the  first  EVAL  without 
the  second. 

To  avoid  complications,  the  first  [VAL  (by  EXPAND,  to  create  the  object  to  be  EVALed  the  second  time 
around)  is  done  in  a top-level  environment.  The  result  of  this  policy  is  that  two  syntactically 
identical  invocations  of  a MACRO  always  return  the  same  expansion  to  be  EVALed  in  the  second  step. 
The  first  EVAI  generates  two  extra  TRAMEs:  one  for  a cal)  to  EXPAND,  and  one  for  a call  to  EVAL  the 
MACRO  application  in  a top-level  environment. 

Example: 

CDFFMAC  INC  (AIM  "OPTIONAL"  (N  1)) 

H>ECL  ((VALUE)  FORM.  (ATM)  ATOM  (N)  COR  FIX  FLOAT>) 

CFORM  SET  .ATM  CFORM  + CFORM  LVAL  .ATM>  .N»>$ 

INC 
, INC$ 

-MACRO  ( #F UNCTION  ((ATM  "OPTIONAL"  (N  1))  ...)) 

CSC!  X m 
1 

< INC  X>S 
2 

,X$ 

2 

CEXPAIJD  * < INC  X>>$ 

CSET  X < + .X  1» 

Perhaps  the  intention  is  clearer  if  PARSE  and  X are  used: 

CDEFMAC  INC  (ATM  "OPTIONAL"  (N  1)) 

FOE CL  (...) 

< PARSE  "CSEl  '/..AIM  <+  '/..ATM  X.N»*» 

MACROS  really  exhibit  their  advantages  when  they  are  compiled.  The  compiler  will  simply  cause  the 
first  EVAI  nation  to  occur  (via  EXPANO)  and  compile  the  result.  The  single  element  of  a compiled 
MACRO  is  an  RSUI5R  or  RSIIP.R-ENTRY. 


17.2.2.  Example 

Suppose  you  want  to  change  the  following  simple  FUNCTION  to  a MACRO: 
CDIFINI  HOUniE  (X)  #DECL  ((X)  FIX)  <+  .X  .X» 


J 
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You  may  Lip  tempted  to  write: 

<DCFMAC  DOUBLE  (X)  #DECL  ((X)  FIX)  <F0RH  ♦ .X  .X» 

This  MACRO  works,  hut  only  when  the  argument  does  not  use  temporary  bindings.  Consider 

<r>rrim  tripie  (y)  <♦  .y  cdouble  .y»> 

If  this  I UNCTION  is  applied,  the  top-level  binding  of  Y is  used,  not  the  binding  just  created  by  the 
application.  Compilation  of  this  FUNCTION  would  probably  fail,  because  the  compiler  probably 
would  have  no  top-level  binding  for  Y.  Well,  how  about 

<PEFMAC  HOUBLE  CX)  <F0RM  ♦ .X  ,X»  ;HThc  OECL  has  to  go." 

Now  this  is  more  like  thr  original  FUNCTION,  because  no  longer  is  the  argument  evaluated  and  the 
result  evaluated  again.  And  TRIPIE  works.  But  now  consider 

SOEFTNE  INC -AND -DOUBLE  (Y)  < DOUBLE  <SET  Y <•*■  1 ,Y»» 

You  might  hope  that 

< INC-ANO-DOUBIC  1>  ->  < DOUBLE  <SET  Y <+  1 ;»> 

->  < DOUBLE  2> 

->  <♦  2 2> 

->  4 

But.  when  OOUIll  I is  applied  to  that  FORM,  the  argument  is  QUOTEd,  so: 

< INC-AND-DOUBLE  1>  ->  < DOUBLE  <SET  Y <♦  1 -Y>» 

->  < T ORN  + <SET  Y <♦  1 . Y»  <SET  Y <1  .Y»> 

->  <+  2 3> 

->  5 

So.  sime  the  rvalnaiion  of  DOUBLE’S  argument  has  a side  effect,  you  should  ensure  that  the 
evaluation  is  done  exactly  once,  say  by  FORM: 

<DCrilAC  DOUBLE  CANY)  . 

<FORM  PROG  ((X  .ANY))  #DECL  ((X)  FIX)  •<♦  .X  .X»> 

As  a bonus,  the  DECl  can  once  more  be  used. 

This  example  is  intended  to  show  that  writing  good  MACROS  is  a little  trickier  than  writing  good 
FUNCTIONS.  But  the  effort  may  he  worthwhile  if  the  compiled  program  must  be  speedy. 
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Chapter  18.  Machine  Words  and  Bits 


The  MDI  facility  for  dealing  with  uuinterpreted  machine  words  and  hits  involves  two  data  TYPEs: 
WORD  and  BUS.  A WORD  is  simply  an  uninterpreted  machine  word,  while  a BITS  is  a "pointer"  to  a 
set  of  hits  within  a WORD.  Operating  on  WORDs  is  usually  done  only  when  compiled  programs  are 
used  (chapter  I1)). 


18.1.  WORDs 

A WORD  in  MDL  is  a PDP-IO  machine  word  of  3G  bits.  A WORD  always  PRINTS  in  "#  format",  and  its 
contents  are  always  printed  in  octal  (lienee  preceded  and  followed  by  *).  Examples: 

-WORD  0 ;"all  Os"S 

"WORD  *000000000000* 

-WORD  *2000*  ;"one  bit  PS 

-WORD  *000000002000* 

"WORD  *3?r>?5?5?5752*  pevery  other  bit  1"S 

-WORD  *S?^*2?*?b?S?5?« 

WORD  is  its  own  PRIMTYPC:  it  is  also  the  PRIIITYPE  of  FIX,  FLOAT,  CHARACTER,  and  any  other  TYPE 
which  ran  fit  its  data  into  one  machine  word. 

A WORD  cannot  l,e  an  argument  to  ♦,  -,  or  indeed  any  SUBRs  except  for  CHTYPE , GETBITS,  PUTBITS 
and  scvcial  hit-manipulating  functions,  all  to  be  described  below.  Thus  any  arithmetic  bit 
manipulation  must  he  done  hy  ClllYPl  ing  a WORD  to  r IX,  doing  the  arithmetic,  and  then  CHTYPEing 
back  to  WORD.  However,  hit  manipulation  can  be  done  without  CHTYPEing  the  thing  to  be  played 
with  to  a WORD,  so  long  as  it  is  of  PRIMIYPE  WORD;  the  result  of  the  manipulation  will  be  of  the 
same  TYPE  as  the  oijgiu.il  ob  ject  or  can  be  CHTYPEd  to  it. 
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An  object  of  1YPI  BITS  is  of  PRIHTYPE  WORO,  and  PRINTS  just  like  a WORD.  The  internal  form  of  a 
BITS  is  pm  isely  that  of  a PDI’-IO  "byte  pointer”,  which  is.  in  fact,  just  what  a BITS  is. 

For  purposes  of  explaining  what  a BITS  is.  assume  that  the  bits  in  a WORD  are  numbered  from  right 
to  left,  with  the  light  iiiom  bit  numbered  0 and  the  leftmost  numbered  35.  as  in 

V.  34  33  ...  2 1 0 

(This  is  not  the  "standard''  ordering:  the  "standard"  one  goes  from  left  to  right.) 

A BITS  is  most  conveniently  treated  via  the  SURR  BITS: 

<BIIS  wdth:fi s nght-edgedix) 

returns  a I!  I IS  which  "points  to"  a set  of  hits  width  wide,  with  rightmost  bit  right-edge.  Both 
arguments  must  be  of  TYPE  FIX,  and  the  second  is  optional.  0 by  default. 

Examples:  the  indicated  application  of  BITS  returns  an  object  of  TYPE  BITS  which  points  to  the 
indicated  set  of  bits  in  a WORD: 

<BITS  7>  35  ...  7 6 ...  0 

< B IT S 4 18>  35  ...  22  2\  20  19  18  17  ...  0 

sBI IS  36 > 35  ...  0 


18.3.  GL 1B1 1 S 

CGCTRIIS  fror»:/vimt\ pe-word  bits > 

where  ire.,  is  an  object  of  PR1MTYPE  WORD,  returns  a new  object  whose  TYPE  is  WORD.  This  object  is 
constructed  in  the  following  way:  the  set  of  bits  in  from  pointed  to  by  bits  is  copied  into  the  new 
object,  right-ad  justed,  that  is,  lined  up  against  the  right  end  (bit  number  0)  of  the  new  object.  All 
those  bits  of  the  new  object  which  are  not  copied  arc  set  to  zero.  In  other  words.  GETBITS  takes  bits 
from  an  arbitrary  place  in  from  and  puts  them  at  the  right  end  of  a new  object.  The  from  argument 
to  GETBITS  is  not  affected. 

Examples; 
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<GE  11SI1S  *WORD  * 777777777777*  <B1TS  3»S 
•WORD  *000000000007* 

<r.l  THIlS  *012345670123*  <BITS  6 10»$ 
“WORD  *000000000045* 


18.-1.  phi  in  is 

<PUiniTS  / 0:pr  imt)  pe-  word  bits  tr  orn.pnnit  vpe  -wOrd> 

where  to  ami  from  are  of  PRIMTYPE  WORD,  returns  a ayyy  of  to.  modified  as  follows:  the  set  of  bits 
in  to  which  are  pointed  to  by  bits  are  replaced  by  the  appropriate  number  of  rightmost  bits  copied 
from  from  (optional.  0 by  default!.  In  other  words:  PUTBITS  takes  bits  from  the  right  end  of  from 
and  stuffs  them  into  an  arbitrary  position  in  a copy  of  to.  None  of  the  arguments  to  PUTBITS  is 
affected. 

Examples: 

< PIJ I B 1 IS  “WORD  * 777777777777*  <B1  TS  6 3>>$ 

“WORD  *777777777007* 

crUTBITS  < WORD  *660777000111*  <BITS  5 15>  #V0RD  *123*>S 
•WORD  *666776300111* 

milBUS  iWORU  *765432107654*  < B 1 TS  1 8 > >S 
''WORD  *765432000000* 


18.5.  Ditwisp  Boolean  Opera  I inns 

Each  of  the  SlIRRs  ANIUl , ORB,  XORB,  and  rQVB  takes  arguments  of  PRIMTYPE  WORD  and  returns  a 
WORD  which  is  the  bitwise  Boolean  "and",  inclusive  "or",  exclusive  "or",  or  "equivalence"  (inverse  of 
exclusive  or  I.  respectively,  of  its  arguments.  Each  takes  any  number  of  arguments.  If  no 
argument  is  given,  a WORD  with  all  bits  off  (ORB  and  XORB)  or  on  (ANDB  and  EQVB)  is  returned.  If 
only  one  argument  is  given,  it  is  returned  unchanged  but  CIITYPEd  to  a WORD.  If  more  than  two 
arguments  aie  given,  the  operator  is  applied  to  the  first  two.  then  applied  to  that  result  and  the 
third,  etc.  Be  sure  not  to  confuse  AND  and  OR  with  ANDB  and  ORB. 
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18.6.  Bitwise  Shining  Operations 

<ISII  frem:primtypc-word  amount  :f is > 

returns  a new  WOKP  containing  the  hits  in  from,  shifted  the  number  of  bits  specified  by  amount  {mod 
256.  says  the  hanluaie).  Zero  hits  are  brought  in  at  the  end  being  vacated:  bits  shifted  out  at  the 
other  end  ate  lost.  If  amount  is  positive,  shifting  is  to  the  left:  if  amount  is  negative,  shifting  is  to 
the  right.  I samples: 

<tSII  « OH 

r»WOKD  *000000001000* 

<1511  0 -OH 

fwoitn  *000000000000* 

<l\OI  tr  om:(.v  imt  ype-word  an.oun! 

returns  a new  WOUO  mntaining  the  hits  in  from,  rotated  the  number  of  bits  specified  by  amount  (mod 
256.  says  the  haidwaicl.  Rotation  is  a cyclic  bitwise  shift  where  bits  shifted  out  at  one  end  are  put 
back  in  at  the  other.  If  amount  is  positive,  rotation  is  to  the  left:  if  amount  is  negative,  rotation  is  to 
the  right.  l'xamplrs: 

<KOI  H oH 

'WORD  *000000001000* 

<R01  0 -C»H 
("WORD  *100000000000* 


i 
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Chapter  19.  Compiled  Programs 


19.1.  RSUBR  Olic  TYPE) 

RSUBRs  ("relocatable  subroutines")  arc  machine-language  programs  written  to  run  in  the  MDL 
environment  They  are  usually  produced  by  the  MDL  assembler  (often  from  output  produced  by  the 
compiler)  although  this  is  not  necessary.  All  RSUBRs  have  two  components:  the  "reference  vector" 
and  the  "code  vector".  In  some  cases  the  code  vector  is  in  pure  storage.  There  is  also  a set  of 
"fixups"  associated  with  every  RSUBR,  although  it  may  not  be  available  in  the  running  MDL. 


19.2.  The  Reference  Vector 

An  RSUBR  is  basically  a VECTOR  that  has  been  CHTYPEd  to  TYPE  RSUBR  via  the  SUBR  RSUBR  (see 
below).  This  c.x-VL'CTOR  is  the  reference  vector.  The  first  three  elements  of  the  reference  vector  have 
predefined  meanings: 

The  first  element  is  of  TYPE  CODE  or  PCOOE  and  is  the  impure  or  pure  code  vector  respectively. 
The  second  clement  is  an  ATOM  and  specifies  the  name  of  the  RSUBR. 

The  third  element  is  of  TYPE  DFCl  and  declares  the  type/structure  of  the  RSUBRs  arguments  and 
result. 

The  rest  of  the  elements  of  the  reference  vector  arc  objects  in  garbage-collected  storage  that  the 
RSUBR  needs  to  reference  and  any  impure  slots  that  the  RSUBR  needs  to  use. 

When  the  RSUBR  is  running,  one  of  the  PDIMO  accumulators  (with  symbolic  name  R)  is  always 
pointing  to  the  reference  vector,  to  permit  rapid  access  to  the  various  elements. 


Jl 
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19.3.  RSUBR  Linking 

RSUBR*  ran  call  any  APPLICABLE  object,  all  in  a uniform  manner.  In  general,  a call  to  an  F/SUBR  is 
linked  up  at  assembly/compilc  time  jo  that  the  calling  instruction  (UUO)  points  directly  at  the  code 
in  the  interpreter  for  the  F/SUIIR.  However,  the  locations  of  most  other  APPLICABLEs  are  not 
known  at  assrmhly/rompile  time.  Therefore,  the  calling  UUO  is  set  up  to  point  at  a slot  in  the 
reference  vector  (by  indexing  off  accumulator  R).  This  slot  initially  contains  the  ATOM  whose 
G/LVAL  is  the  called  object.  The  calling  mechanism  (UUO  handler)  causes  control  to  be  transferred 
to  the  called  object  and.  depending  on  the  state  of  the  RSUBR-link  flag,  the  ATOM  will  be  replaced  by 
its  G/I.VAI  (If  the  call  is  of  the  “quick"  variety,  the  called  RSUBR  or  RSUBR-EHTRY  will  be  CHTYPEd 
to  a QUICK -RSUBR  or  QUICK-ENTRY,  respectively,  before  replacement.)  Regardless  of  the  RSUBR-link 
flag  s stale,  calls  to  TUNCTIONs  are  never  permanently  linked.  A call  to  a non-Subroutine  generates 
an  extra  r RAHE , whose  rtlNCT  is  the  dummy  ATOM  CALLER. 

RSUBRs  are  linked  together  for  faster  execution,  but  linking  may  not  be  desirable  if  the  RSUBRs  are 
being  debugged,  and  various  revisions  arc  being  re-loaded.  A linked  call  will  forever  after  go  to  the 
same  code,  regardless  of  the  current  G/LVAL  of  the  called  ATOM.  Thus,  while  testing  RSUBRs.  you 
may  want  to  disable  linking,  by  calling  the  RSUBR-LINK  SUBR  with  a FALSE  argument.  Calling  it 
with  a non-FALSE  argument  enables  linking  thereafter.  It  returns  the  previous  state  of  the  link  flag, 
either  T or  #r  Al  SE  ( ) . Galling  it  with  no  argument  returns  the  current  state. 


19.4.  Pure  and  1m pure  Code 

The  first  element  of  an  RSUBR  is  the  code  vector,  of  TYPE  CODE  or  PCOOE.  TYPE  CODE  is  of 
PRIM  TYPE  UVFCTOR,  and  the  UTYPE  should  be  of  PRIHTYPE  WORD.  The  code  vector  is  simply  a block 
of  words  that  are  the  instructions  which  comprise  the  RSUBR.  Since  the  code  vector  is  stored  just 
like  a standard  UVI  CIOR,  it  will  be  moved  around  by  the  garbage  collector.  Therefore,  all  RSUBR 
code  is  required  to  lie  location-insensitive.  The  compiler  guarantees  the  location-insensitivity  of  its 
output.  'I  be  assembler  helps  to  make  the  code  location-insensitive  by  defining  all  labels  as  offsets 
relative  to  the  beginning  of  the  code  vector  and  causing  instructions  that  refer  to  labels  to  index 
automatically  orr  the  PDP-IO  accumulator  symbolically  named  M.  M,  like  R,  is  set  up  by  the  UUO 
handler,  hut  it  points  to  the  code  vector  instead  of  the  reference  vector.  The  code  vector  of  an 
RSUBR  can  he  frozen  (using  the  FREEZE  SUBR)  to  prevent  it  from  moving  during  debugging  by  DDT 
in  the  superior  operating-system  process. 

If  the  first  element  of  an  RSUBR  is  of  TYPE  PCODE  (“pure  code*),  the  code  vector  of  the  RSUBR  is  pure 
and  sharahlc.  TYPE  PCODE  is  of  PRIMTYPE  WORD.  The  left  half  of  the  word  specifies  an  offset  into 
an  internal  table  of  pure  RSUBRs,  and  the  right  half  specifies  an  offset  into  the  block  of  code  where 
this  RSUBR  starts.  The  PCODL  prints  out  as: 


%< PCODE  njr»e:string  offset :fix> 
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where  n.mtr  names  i he  entry  in  the  user’s  pure-RSUBR  table,  and  offset  is  the  offset.  (Obviously, 
PCODE  is  also  the  name  of  a SUBR,  which  generates  a pure  code  vector.)  Pure  RSUBRs  may  also  move 
around,  but  only  by  being  included  in  MDL's  page  map  at  different  places.  Once  again  M can  be 
used  exactly  as  before  to  do  location-independent  address  referencing.  Individual  pure  code  vectors 
can  be  "unmapped"  (marled  as  being  not  in  primary  slorage  but  in  their  original  pure-code  disk 
files)  if  the  space  in  storage  allocated  for  pure  code  is  exhausted.  An  unmapped  RSUBR  is  mapped  in 
again  whenever  needed.  All  pure  RSUBRs  are  unmapped  before  a SAVE  file  is  written,  so  that  the 
code  is  not  duplicated  on  disk.  A purified  RSUBR  must  use  RGLOC  ("relative  GLOC")  instead  of  GLOC. 
RGLOC  produces  objects  of  TYPE  LOCR  instead  of  LOCO. 


19.5,  TYPE-C  and  TYPE  -W 

In  order  to  handle  user  urwTYPCs  reasonably,  the  internal  TYPE  codes  for  them  have  to  be  able  to  be 
different  from  one  MDL  run  to  another.  Therefore,  references  to  the  TYPE  codes  must  be  in  the 
reference  vector  rather  than  the  code  vector.  To  help  handle  this  problem,  two  TYPEs  exist.  TYPE-C 
("type  code")  and  TYPE-W  ("type  word"),  both  of  PRIMTYPE  WORD.  They  print  as: 

%< TYPE-C  /)  po  primtypemtom > 

'/<  TYPE-W  type  primly pc:atom> 

The  SUP.R  TYPE-C  produces  an  internal  TYPE  code  for  the  type,  and  TYPE-W  produces  a prototype 
"TYPE  word"  (appendix  I)  for  an  object  of  that  TYPE.  The  primtype  argument  is  optional,  included 
only  as  a check  against  the  call  to  NEWTYPE.  TYPE-W  can  also  take  a third  argument,  of  PRIMTYPE 
WORD,  whose  right  half  is  included  in  the  generated  "TYPE  word".  If  type  is  not  a valid  TYPE,  a 
NEWTYPT  is  automatically  done. 

To  be  complete,  a similar  SUBR  and  TYPE  should  be  mentioned  here. 

< PRIM  I YI’T  -C  t\pe> 

produces  an  internal  "storage  allocation  code"  (appendix  1)  for  the  type.  The  value  is  of  TYPE 
PRIMTYPE-C,  PRIMTYPE  WORD.  In  almost  all  cases  the  SUBR  TYPEPRIM  gives  just  as  much 
information,  except  in  the  case  of  TEMPLATES:  all  TYPES  of  TEMPLATES  have  the  same  TYPEPRIM,  but 
they  all  have  different  PR]MIYPE-Cs. 


19.6.  RSUBR  (the  SUBRT 

<RSUBR  [rode  name  decl  ref  ref  . . . ]> 

CHTYPEs  its  argument  to  an  RSUBR,  after  checking  it  for  legality.  RSUBR  is  rarely  called  other  than 
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in  the  MDL  Assembler  (Lebiing.  1979).  It  can  be  used  if  changes  must  be  made  to  an  RSUBR  that  are 
prohibited  by  MDL’s  built-in  safety  mechanisms.  For  example,  if  the  GVAl  of  name  is  an  RSUBR: 

<SET  FIXIT  <CHTYPE  ,name  VECT0R»S 

...  (changes  to  .FIXIT)... 

<SETG  name  <RSUBR  .FIXIT»S 
4RSUBR  [...] 


19.7.  RSUBR-ENTRY 

RSUBRs  can  have  multiple  entry  points.  An  RSUBR-ENTRY  can  be  applied  to  arguments  exactly  like 
an  RSUBR. 

<RSUBR-EN1RY  [ rsubr-or-atom  name:atom  dec! ] offset :fix> 

returns  the  VECTOR  argument  CIITYPEd  to  an  RSUBR-ENTRY  into  the  rsubr  at  the  spe>.  ied  offset.  If 
the  RSUBR-ENTRY  is  to  have  a DECL  (RSUBR  style),  it  should  come  as  shown. 

<ENTRY-LOC  rsubr-entry > 

("entry  location")  returns  the  offset  into  the  RSUBR  of  this  entry. 


19.8.  RSUBRs  in  Files 

There  are  three  kinds  of  files  that  can  contain  RSUBRs.  identified  by  second  names  BINARY,  NBIN 
and  FBIN.  There  is  nothing  magic  about  these  names,  but  they  are  used  by  convention. 

A BINARY  file  is  a completely  ASCII  file  containing  complete  impure  RSUBRs  in  character 
representation.  Even  a code  vector  appears  as  ICODE  followed  by  a UVECTOR  of  PRIMTYPE  WORDS. 
BINARY  files  are  generally  slow  to  load,  because  of  all  the  parsing  that  must  be  done. 

An  NBIN  file  contains  a mixture  of  ASCII  characters  and  binary  code.  The  start  of  a binary 
portion  is  signalled  to  READ  by  the  character  control-C,  so  naive  readers  of  an  NBIN  file  on  ITS  may 
incorrectly  assume  that  it  ends  before  any  binary  code  appears.  An  NBIN  file  cannot  be  edited  with 
a text  editor.  An  RSUBR  is  written  in  NBIN  format  by  being  PRINTed  on  a "PRINTB*  CHANNEL.  The 
RSUBRs  in  NBIN  files  are  not  purified  either. 
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An  FBIN  file  is  actually  part  of  a triad  of  files.  The  FBIN  file(s)  itself  is  the  impure  part  of  a 
collection  of  purified  RSUBRs.  It  is  simply  ASCII  and  can  be  edited  at  will.  (Exception:  in  the  ITS 
and  Tops-20  versions,  the  first  object  in  the  file  should  not  be  removed  or  changed  in  any  svay.  lest 
a "grim  reaper"  program  for  I BIN  files  think  that  the  other  files  in  the  triad  are  obsolete  and  delete 
them.)  The  pure  code  itself  resides  (in  the  ITS  and  Tops-20  versions)  in  a special  large  file  that 
contains  all  i niiently-osed  pme  code,  or  (in  the  Tencx  version)  in  a file  in  a special  disk  directory 
with  first  name  the  same  as  the  name  argument  to  PCODE  for  the  RSUBR.  The  pure-code  file  is  page- 
mapped  directly  into  MDL  storage  in  read-only  mode.  It  can  be  unmapped  when  the  pure  storage 
must  he  reclaimed,  and  it  can  hr  mapped  at  a different  storage  address  when  pure  storage  must  be 
compacted.  There  is  also  a "fixup"  file  (see  below)  or  portion  of  a file  associated  with  the  FBIN  to 
round  out  the  triad. 

An  initial  MDL  can  have  pure  RSUBRs  in  it  that  were  "loaded"  during  the  initialization  procedure. 
The  files  are  not  page-mapped  in  until  they  are  actually  needed.  The  "loading"  has  other  side 
effects,  such  as  the  creation  of  OBLISTs  (chapter  15).  Exactly  wlut  is  pre-loaded  is  outside  the  scope 
of  this  document. 


19.9.  Fixups 

The  purpose  of  "fixups"  is  to  correct  references  in  the  RSUBR  to  parts  of  the  interpreter  that  change 
from  one  release  of  MDL  to  the  next.  The  reason  the  fixups  contain  a release  number  is  so  that 
they  can  he  completely  ignored  when  an  RSUBR  is  loaded  into  the  same  release  of  MDL  as  that  from 
which  it  was  last  written  nut. 

There  are  three  forms  of  fixups,  corresponding  to  the  three  kinds  of  RSUBR  files.  ASCII  RSUBRs, 
found  in  BINARY  filrs,  have  ASCII  fixups.  The  fixups  are  contained  in  a LIST  that  has  the 
following  format: 

( MDL-releasc:fix 

neme:rtom  value:fix  ( use:fix  us e:fix  ...) 
namc:aton\  value  .fix  ( use.fix  use  .fix  ...) 

...) 

The  fixups  in  NBIN  files  and  the  fixup  filrs  associated  with  FBIN  files  are  in  a fast  internal  format 
that  looks  like  a UVFC.10R  of  PRIMTYPt  WORDs. 

Fixups  arc  usually  discarded  after  they  are  used  during  the  loading  procedure.  However,  if,  while 
reading  a BINARY  or  NBIN  file  the  ATOM  KELP-FIXUPS!  - has  a non-FALSE  LVAL,  the  fixups  will  be 
kept,  via  an  association  between  the  RSUBR  and  the  ATOM  RSUBR.  It  should  be  noted  that,  besides 
correcting  the  code,  the  fixups  themselves  are  corrected  when  KEEP-FIXUPS  is  bound  and  true.  Also, 
the  assembler  and  compiler  make  the  same  association  when  they  first  create  an  RSUBR,  so  that  it 
can  be  written  out  with  its  fixups. 
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In  the  case  of  ,„,re  RSUBRa  (FB1N  files),  things  are  a little  different.  If  . pure-code  file  exists  for 

file  fo  'til”/  I t " “•  i"""edia,e|y-  a,,d  «re  completely  ignored.  If  . pure-clde 

file  for  this  release  docsn  t exist,  the  fixup  file  is  used  to  create  a new  copy  of  the  file  from  ^ 

one.  and  also  a new  revision  of  the  fixup  file  is  created  to  go  with  the  new*  pure-code  file  This  all 
goes  on  automatically  behind  the  user  s back.  pure-code  file.  This  all 
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Chapter  20.  Coroutines 

This  chapter  purports  to  explain  the  coroutine  primitives  of  MDL.  It  does  make  some  attempt  to 
explain  coroutines  as  such,  but  only  as  required  to  specify  the  primitives.  If  you  are  unfamiliar 
with  the  basic  concepts,  confusion  will  probably  reign. 

A coroutine  in  MDI  is  implemented  by  an  object  of  TYPE  PROCESS.  In  this  manual,  this  use  of  the 
word  "process"  is  distinguished  by  capitalization  from  its  normal  use  of  denoting  an  operating* 
system  process  (which  various  systems  call  a process,  job,  fork,  task.  etc.). 

MDL’s  built-in  coroutine  primitives  do  not  include  a "time-sharing  system".  Only  one  PROCESS  is 
ever  running  at  a time,  and  control  is  passed  back  and  forth  between  PROCESSes  on  a coroutine-like 
basis.  The  primitives  are  sufficient,  however,  to  allow  the  writing  of  a "time-sharing  system"  in 
MDL.  with  the  additional  use  of  the  MDL  interrupt  primitives.  This  has.  in  fact,  been  done. 


20.1.  PROCESS  (theJ  YPE) 

A PROCESS  is  an  object  which  contains  the  "current  state"  of  a computation.  This  includes  the 
LVALs  of  AlOMs  ("bindings"),  "depth"  of  functional  application,  and  "position"  within  the  application 
of  each  applied  function.  Some  of  the  things  which  are  rnd  part  of  any  specific  PROCESS  are  the 
GVALs  of  ATOMs.  associations  (ASOCs),  and  the  contents  of  OBLISTs.  GVALs  (with  OBLISTs)  are  a chief 
means  of  communication  and  sharing  between  PROCESSes  (all  PROCESSes  can  refer  to  the  SUBR  which 
is  the  GVAL  of  ♦,  for  instance).  Note  that  an  LVAL  in  one  PROCESS  cannot  easily  be  directly 
referenced  from  another  PROCESS. 

A PROCESS  PRIMTs  as  ^PROCESS  p.  where  p is  a FIX  which  uniquely  identifies  the  PROCESS;  p is  the 
"PROCESS  number"  typed  out  by  LISTEN.  A PROCESS  cannot  be  read  in  by  READ. 

The  term  "run  a PROCESS"  will  be  used  below  to  mean  "perform  some  computation,  using  the 
PROCESS  to  record  the  intermediate  states  of  that  computation". 

N.B.:  A PROCESS  is  a rather  large  object;  creating  one  will  often  cause  a garbage  collection. 
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20.2.  ST A1F  of  aJffOgrS-S 


<STATE  process > 


'"“"'V"  “l0"  “"-1SD  «Md.  indie.,,,  ,l„  0,  ,h,  PROCESS 

wnuh  5TATE  tan  reinrn.  and  tiieir  meanings,  are  as  follows: 


The  ATOM* 


RUNAI5I  f (sic)  --  process  lias  never  ever  been  run. 


RUNNING  - process  is  currently  running,  that  is.  it  did  the  application  of  STATE. 
REStIMABlE  ~ process  has  been  run.  is  not  currently  running,  and  can  run  again. 
DEAD  - process  has  been  run.  but  it  can  not  run  again:  it  has  ‘terminated*. 


Ir'Tr:  an  (rha,>,cr  2I)  can  bf  enablcd  t0  the  time  at  which  a PROCESS  becomes 

blocked  (waiting  for  terminal  input)  or  "unblocked"  (terminal  input  arrived).  (The  STATE  BLOCKED 
has  not  been  implemented.) 


20.3.  PROCESS  (the  SUBR) 

<PR0C.lSS  starter.jpplicjble') 


creates  and  returns  a new  PROCESS  but  does  not 
RUNABLE  (sic).  — 


run  it;  the  STATE  of  the 


returned  PROCESS 


is 


stater  is  something  applicable  to  one  argument,  which  must  be  evaluated,  stater  it  used  both  in 

,n  if * — - - • «*  . 


20.4.  RESUME 


T‘*  S”BR  "ESUHE1.1*  "'ed  » computation  to  start  or  to  continue  running  in  another 

PROCESS . An  application  of  RESUME  looks  like  this: 


< RESUME  retv  eh  cmy  process > 


where  relval  is  the  "returned  value"  (see  below)  of  the  PROCESS  that 
the  PROCESS  to  be  started  or  continued. 


does  the  RESUME. 


and  process  is 
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The  process  argument  to  RESUME  is  optional,  by  default  the  last  PROCESS,  If  any,  to  RESUME  the 
PROCESS  in  which  this  RESUME  is  applird.  If  and  when  the  current  PROCESS  is  later  RESUMEd  by 
another  PR0CF5S,  that  RESUML’s  retval  is  returned  as  the  value  of  this  RESUME. 

? m 

. 

20.5.  Switching  PROCESSes 

20.5.1.  Starting  lip  a New  nR0CESS 

Let  us  say  that  we  are  running  in  some  PROCESS,  and  that  this  original  PROCESS  is  the  GVAL  of  P0. 

Somesvhere.  sve  have  evaluated 

<SETG  PI  < PROCESS  ,STARTER» 

where  .STARTER  is  some  appropriate  function.  Now.iu^,  we  evaluate 
<RESUME  .A  , PI > 
and  the  following  happens: 

(1)  L'i  .tP.2  'l,e  arguments  of  the  RESUME  are  evaluated:  that  is.  we  get  that  LVAL  of  A which  is 
current  in  ,P0  and  the  GVAL  of  PI. 

(2)  The  S1AIE  of  ,P0  is  changed  to  RESUMA8LE  and  ,P0  is  "frozen"  right  where  it  is,  in  the 
middle  of  the  RESUME. 

(3)  The  STATE  of  ,P1  is  changed  to  RUNNING,  and  .STARTER  is  applied  to  ,P0’s  LVAL  of  A in 
, PL  ,P1  now  continues  on  its  way.  evaluating  the  body  of  .STARTER. 

The  .A  in  the  RESUME  could  have  been  anything,  of  course.  The  important  point  is  that,  whatever  it 
is,  it  is  evaluated  in  ,P0. 

What  happens  next  depends,  of  course,  on  what  .STARTER  does. 

20.5.2.  Top-level  Return 

Let  us  initially  assume  that  .STARTER  does  nothing  relating  to  PROCESSes.  but  instead  simply 
returns  a value  --  say  starva/.  What  happens  when  .STARTER  returns  is  this: 

(I)  The  STATE  of  ,P1  is  changed  to  DEAD.  , P 1 can  never  again  be  RESUMEd. 
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(2)  The  last  PROCESS  to  RESUME  ,P1  is  found,  namely  ,P0,  and  its  STATE  is  changed  to 
RUNNING. 

(3)  st.wva/  is  returned  in  ,P0  as  the  value  of  the  original  RESUME,  and  ,P0  continues  where  it 
left  off. 

All  in  all,  this  simple  case  looks  just  like  an  elaborate  version  of  applying  .STARTER  to  .A  in  ,P0. 


20.5.3.  Symmetric  RESUMEing 

Now  suppose  that  while  still  in  , P 1 the  following  is  evaluated,  either  in  .STARTER  or  in  something 
called  by  .STARTER: 

<RESUMC  .BAR  ,P0> 

This  is  what  happens: 

(I)  The  arguments  of  the  RESUME  are  evaluated  m , PI. 

(21  The  STATE  of  . P 1 is  changed  to  RESUMABLE,  and  . P 1 is  "frozen"  right  in  the  middle  of  the 
RESUME. 

(31  The  STATF  of  , P0  is  changed  to  RUNNING,  and  .Pi’s  LVAL  of  BAR  is  returned  as  the  value  of 
. PO's  original  RESUME.  ,P0  then  continues  right  where  it  left  off. 

This  is  tjhe  interesting  case,  because  ,P0  can  now  do  another  RESUME  of  .PI;  this  will  "turn  off" 
,P0,  pass  a value  to  ,P1  and  "turn  on"  .PI.  , P 1 can  now  again  RESUME  ,P0,  which  can  RESUME 
,P1  back  again,  etc.  ad  nauseam,  with  everything  done  in  a perfectly  symmetric  manner.  This  can 
obviously  also  be  done  with  three  or  more  PROCESSes  in  the  same  manner. 

Note  how  this  differs  from  normal  functional  application:  you  cannot  "return"  from  a function 
without  destroying  the  stale  that  function  is  in.  The  whole  point  of  PROCESSes  is  that  you  can 
"return"  (RLSUME).  remembering  your  state,  and  later  continue  where  you  left  off. 


20.6.  Example 
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;"Inilial1y,  we  are  in  LISTEN  in  some  PROCESS." 

<DCFINE  SUM3  (A) 

♦ DF.CL  ((A)  <0R  FIX  FLOAT)) 

<REPEAT  ((S  .A)) 

f»0ECL  ((S)  <0R  FIX  FLOAT)) 

<SET  S <♦  .S  < RESUME  "GOT  1“»> 

<SET  S <♦  .S  < RESUME  "GOT  Z">» 

<SET  S < RESUME  .S))»S 

SIIM3 

; "SUM3,  used  ns  the  startup  function  of  another  PROCESS, 
clots  RESUMEd  with  numbers.  It  returns  the  sum  of  the  last 
three  numbers  it  was  given  every  third  RESUME." 

<SETG  SUMUP  < PROCESS  ,SUM3>>$ 

-PROCESS  2 

; "Now  we  start  SUMUP  and  give  SUM3  its  three  numbers." 
<RESUME  5 ,SUMUP)S 
"GOT  1" 

< RESUME  1 , SUMUP >J 
"G01  2 " 

<RESUME  2 ,SUMUP>1 
8 


Just  as  a note,  by  taking  advantage  of  MDL's  order  of  evaluation,  SUM3  could  have  been  written  as: 

<DEF INC  SUM3  (A) 

<REPF AT  ((S  .A)) 

#0ECL  ((A  S)  <0R  FIX  FLOAT)) 

<SET  S <RESUME  <♦  .S  < RESUME  "GOT  1")  < RESUME  "GOT  2"»»» 


20.7.  Other  Coroutining  Features 


20.7.1.  BREAK-SEQ 

< BREAK -SCO  any  process > 

("break  evaluation  sequence")  returns  process,  which  must  be  RESUMABLE,  after  having  modified  it 
so  that  when  it  is  next  RESUMEd,  it  will  first  evaluate  any  and  then  do  an  absolutely  normal  RESUME; 
the  value  returned  by  any  is  thrown  away,  and  the  value  given  by  the  RESUME  is  used  normally. 

If  a PROCESS  is  BREAk-SEQed  more  than  once  between  RESUMES,  all  of  the  anys  BREAK -SEQed  onto  it 
will  be  remembered  and  evaluated  when  the  RESUME  is  finally  done.  The  anys  will  be  evaluated  in 
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lajf-in  first-out"  order.  The  FRAME  generated  by  EVALing  more  than  one  any  will  have  as  its  FUN CT 
the  dummy  A10M  BREAKER. 

20.7.2.  MAIN 

When  you  initially  start  up  MDL.  the  PROCESS  in  which  you  are  running  is  slightly  ’special*  in 
these  two  ways: 

(1)  Any  attempt  to  cause  it  to  become  DEAO  will  be  met  with  an  error. 

(2)  <MAIN>  always  returns  that  PROCESS. 

The  PROCFSS  number  of  <MAIN>  is  always  1.  The  initial  GVAL  of  THIS-PROCESS  is  what  MAIN  always 
returns.  #PR0CESS  1 . 


20.7.3.  ME 

<ME> 

returns  the  PROCESS  in  which  it  is  evaluated.  The  LVAL  of  THIS-PROCESS  in  a RUNABLE  (new) 
PROCESS  is  what  ME  always  returns. 


20.7.4.  RESUMER 

CRESIIMER  process'} 

returns  the  PROCFSS  which  last  RESUMEd  process.  If  no  PROCESS  has  ever  RESUMEd  process,  it  returns 
#FALSE  ( ) . process  is  optional.  <ME>  by  default.  Note  that  <MAIN>  does  not  ever  have  any  resumer. 
Example: 


<PR0G  ((R  < RESUMER) ) ) ;«not  effective  in  CHAIN)" 

#DECl  ( ( R ) COR  PROCESS  FALSE)) 

CANO  .R 

<==?  CSTATE  .R>  RESUMABLE) 

CRESUME  T .R»> 


20.7.5.  SUICIDE 


CSUICIDC  retv  a!  process > 
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acts  just  like  RESUME,  but  clobbers  the  PROCESS  (which  cannot  be  <MAIN>)  in  which  it  is  evaluated  to 
the  STATE  DEAD. 


20.7.6.  1STEP 

<1STEP  process > 

returns  process,  after  putting  it  into  "single-step  mode". 

A PROCESS  in  single-step  mode,  whenever  RESUMEd,  runs  only  until  an  application  of  EVAL  in  it 
begins  or  finishes.  At  that  point  in  time,  the  PROCESS  that  did  the  1STEP  is  RESUMEd,  with  a retval 
which  is  a TUPLE.  If  an  application  of  EVAL  just  began,  the  TUPLE  contains  the  ATOM  EVLIN  and 
the  arguments  to  EVAL.  If  an  application  of  EVAL  just  finished,  the  TUPLE  contains  the  ATOM 
EVLOUT  and  the  result  of  the  evaluation. 

process  will  remain  in  single-step  mode  until  FREE-RUN  (below)  is  applied  to  it.  Until  then,  it  will 
stop  before  and  after  each  EVAL  in  it.  Exception:  if  it  is  RESUMEd  from  an  EVLIN  break  with  a retval 
of  TYPE  DISMISS  (PRIMIYPE  ATOM),  it  will  leave  single-step  mode  only  until  the  current  call  to 
EVAL  is  about  to  return.  Thus  lower-level  EVALs  are  skipped  over  without  leaving  the  mode.  The 
usefulness  of  this  mode  in  debugging  is  obvious. 


20.7.7.  FREE-RUN 

<TREE-RUN  process > 

takes  its  argument  out  of  single-step  mode.  Only  the  PROCESS  that  put  process  into  single-step 
inode  can  take  it  out  of  the  mode:  if  another  PROCESS  tries,  FREE-RUN  returns  a FALSE. 


20  8.  Sneakiness  with  PROCESScs 


FRAMES,  ENVIRONMI  NTs.  TAGs,  and  ACTIVATIONS  are  specific  to  the  PROCESS  which  created  them,  and 
each  "knows  its  own  father".  Anj^  SUBR  which  takes  these  objects  as  arguments  can  take  one  which 
was  generated  by  any  PROCESS,  no  matter  where  the  SUBR  is  really  applied.  This  provides  a rather 
sneaky  means  of  crossing  between  PROCESScs.  The  various  cases  are  as  follows: 

GO,  RETURN,  AGAIN,  and  ERRET,  given  arguments  which  lie  in  another  PROCESS,  each  effectively 
"restarts"  the  PROCESS  of  its  argument  and  acts  as  if  it  were  evaluated  over  there.  If  the  PROCESS  in 
which  it  was  executed  is  later  RESUMEd,  it  returns  a value  just  like  RESUME! 

SET.  UNASSIGN,  BOUND?,  ASSIGNED?,  LVAL,  VALUE,  and  LLOC,  given  optional  ENVIRONMENT 
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arguments  which  lie  in  another  PROCESS.  will  gleefully  change,  or  return,  the  local  values  of  ATOM* 
in  the  other  PROCESS . The  optional  argument  can  equally  well  be  a PROCESS,  FRAHE,  or 
ACTIV/W  ION  in  another  PROCISS;  in  those  cases,  each  uses  the  ENVIRONMENT  which  is  current  in  the 
place  specified. 

tRAMI,  ARCS,  and  TUNC!  will  he  glad  to  return  the  FRAMEs,  argument  TUPLES,  and  applied 
Subroutine  names  of  another  PROCESS.  If  one  is  given  a PROCESS  (including  <ME»  as  an  argument 
instead  of  a TRAM!  . it  returns  all  or  the  appropriate  part  of  the  topmost  FRAME  on  that  PROCESS'S 
control  stack. 

If  EVAL  is  applied  in  PROCISS  PI  with  an  ENVIRONMENT  argument  from  a PROCESS  P2.  it  will  do  the 
evaluation  in  PI  but  with  P2’s  ENVIRONMENT  (!).  That  is.  the  other  PROCESS'S  LVALs.  etc.  will  be  used, 
but  (I)  any  new  I RAMCs  needed  in  the  course  of  the  evaluation  will  be  created  in  PI;  and  (2)  PI  will 
be  RUNNING  - not  IV.  Note  the  following:  if  the  EVAL  in  PI  eventually  causes  a RESUME  of  P2,  P2 
could  functionally  return  to  below  the  point  where  the  ENVIRONMENT  used  in  PI  is  defined:  a RESUME 
of  PI  at  this  point  would  cause  an  error  due  to  an  invalid  ENVIRONMENT.  (Once  again.  LEGAL?  can 
be  used  to  forestall  this.) 


20.9.  Final  Notes 

(1)  A RESUMABl  E PROCESS  can  be  used  in  place  of  an  ENVIRONMENT  in  any  application.  The 
"current"  I NVIRONMI  Nt  of  the  PROCESS  is  effectively  used. 

(2)  I RAMI  s and  I NVIRONMI  Nls  can  he  CHTYPEd  arbitrarily  to  one  another,  or  an  ACTIVATION  can  be 
CMTYPId  to  either  of  them,  and  die  result  "works".  Historically,  these  different  TYPE*  were  first  used 
with  different  SURRs  - I RAME  with  ERRET,  ENVIRONMENT  with  EVAL,  ACT 'VAT  ION  with  RETURN  - 
hence  the  invention  of  different  TYPrs  with  similar  properties. 

(3)  bug'  in  multi  PROCISS  programs  usually  exhibit  a degree  of  subtlety  and  nastiness  otherwise 
unknown  to  the  human  mind.  If  when  attempting  to  work  with  multiple  PROCESSes  you  begin  (o 
feel  that  you  are  rapidly  going  insane,  you  are  in  good  company. 
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Chapter  21.  Interrupts 

The  MDL  interrupt-handling  facilities  provide  the  ability  to  say  the  following:  whenever  "this 
event"  occurs,  stop  whatever  is  being  done  at  the  time  and  perform  "this  action":  when  "this  action" 
is  finished,  continue  with  whatever  was  originally  being  done.  "This  event"  can  be  things  like  the 
typing  of  a character  at  a terminal,  a time  interval  ending,  a PROCESS  becoming  blocked,  or  a 
program-defined  and  -generated  "event".  "This  action”  is  the  application  of  a specified  APPLICABLE 
object  to  arguments  provided  by  the  MDL  interrupt  system.  The  sets  of  events  and  actions  can  be 
changed  in  extremely  flexible  ways,  which  accounts  for  both  the  variety  of  SUBRs  and  arguments, 
and  the  rich  interweaving  of  the  topics  in  this  chapter.  Interrupt  handling  is  a kind  of  parallel 
processing:  a program  can  be  divided  into  a "main-level"  part  and  one  or  more  interrupt  handlers 
that  execute  only  when  conditions  are  ripe. 


21.1.  Definitions  of  Terms 


An  interrupt  is  not  an  object  in  MDL,  but  rather  a class  of  events,  for  example,  "ticks"  of  a clock, 
garbage  collections,  the  typing  of  a character  at  a terminal,  etc. 

An  interrupt  is  said  occur  when  one  of  the  events  in  its  class  takes  place. 

An  external  interrupt  is  one  whose  occurrences  are  signaled  to  MDL  by  the  operating  system,  for 
example,  "ticks"  of  a clock.  An  internal  interrupt  is  one  whose  occurrences  are  detected  by  MDL 
itself,  for  example,  garbage  collections.  MDL  can  arrange  for  the  operating  system  not  to  signal 
occurrences  of  an  external  interrupt  to  it:  then,  as  far  as  MDL  is  concerned,  that  interrupt  does  not 
occur. 

II 

Each  interrupt  has  a name  whiclj  is  either  a STRING  (for  example,  HGC\  "CHAR",  "WRITE")  or  an 
ATOM  with  that  PHAME  in  a special  OBLIST,  named  INTERRUPTS!-  . (This  OBLIST  is  returned  by 
< INTERRUPTS).)  Certain  names  must  always  be  further  specified  by  a CHANNEL  or  a LOCATIVE  to 
tell  which  interrupt  by  that  name  is  meant. 

When  an  interrupt  occurs,  the  interpreter  looks  for  an  association  on  the  interrupt's  name.  If  there 
is  an  association,  its  AVALUE  should  be  an  IHEADER,  which  heads  a list  of  actions  to  be  performed. 

In  each  IHEADER  is  the  name  of  the  interrupt  with  which  the  IHEAOER  is  or  was  associated. 
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In  each  I IIEADFR  is  an  element  telling  whether  it  is  disabled.  If  an  IHEADER  is  disabled,  then  none  of 
its  actions  is  pcrfoimed.  The  opposite  of  disabled  is  enabled.  It  is  sometimes  useful  to  disable  an 
IHEADIR  temporarily,  but  removing  its  association  with  the  interrupt’s  name  is  better  than  long- 
term disabling.  I here  are  SUBRs  for  creating  an  IHEADER,  associating  it  with  an  interrupt,  and  later 
removing  the  association. 

In  each  IHEADER  is  a priority,  a FIX  greater  than  0 which  specifies  the  interrupt's  "importance". 
Tire  processing  of  a higher-priority  (larger-numbered)  interrupt  will  supersede  the  processing  of  a 
lower-prioritv  (smaller-numbered)  interrupt  until  the  high-priority  interrupt  has  been  handled. 

In  each  IHIADER  is  a (possibly  empty)  list  of  HANDLERS.  (This  list  is  not  a MDL  LIST.)  Each 
HANDLER  corresponds  to  an  action  to  perform.  There  are  SUBRs  for  creating  a HANDLER,  adding  it  to 
an  IHEADER's  list,  and  later  removing  it. 

In  each  HANDIER  is  a function  that  we  will  call  a handler  (in  lower  case),  despite  possible  confusion, 
because  that  is  really  the  best  name  for  it.  An  action  consists  of  applying  a handler  to  arguments 
supplied  by  the  interrupt  system.  The  number  and  meaning  of  the  arguments  depend  on  the  name 
of  the  interrupt.  In  each  HANDIER  is  an  element  telling  in  which  PROCESS  the  action  should  be 
performed. 


21.2.  EVENT 


<EVL"NT  name  priority  which > 

creates  and  returns  an  enabled  IHEADER  with  no  HANDLERS.  The  name  may  be  an  ATOM  in  the 
INTERRUPTS  OBLIST  nr  a SIRING;  if  it  is  a STRING,  EVENT  does  a LOOKUP  or  INSERT  in 
< INTERRIIPTS> . If  there  already  is  an  IHEADER  associated  with  name,  EVENT  just  returns  it,  ignoring 
the  given  priority. 

which  must  be  given  only  for  certain  names: 

It  must  be  a CHANNEL  if  and  only  if  name  is  "CHAR"  (or  CHAR! -INTERRUPTS).  In  this  case  it  is 
the  input  CHANNEL  from  the  (pseudo-)terminal  or  Network  socket  whose  received  characters  will 
cause  the  interrupt  to  occur,  or  the  output  CHANNEL  to  the  pseudo-terminal  or  Network  socket 
whose  desired  characters  will  cause  the  interrupt  to  occur.  (See  below.  Pseudo-terminals  are  not 
available  in  the  Tenrx  and  Tops-20  versions.) 

The  argument  must  hr  a LOCATIVE  if  and  only  if  name  is  "READ"  (or  READ! -INTERRUPTS)  or 
"WRITE"  (or  WRITE!-INirRRUPTS).  In  this  case  it  specifies  an  object  to  be  "monitored"  for 
usage  by  (interpreted)  MDl.  programs  (section  21.8.9). 

If  the  interrupt  is  external.  MDL  arranges  for  the  operating  system  to  signal  its  occurrences. 
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21.3.  HANOI  I R (the  StlliR) 

CHANDLER  iheader  applicable  process > 

creates  a HANOI  I R,  adds  it  to  the  front  of  iheader's  HANDLER  list  (first  action  to  be  performed),  and 
returns  it  as  a value,  applicable  may  be  any  APPLICABLE  object  that  takes  the  proper  number  of 
arguments.  (None  of  the  arguments  can  be  QUOTEd:  they  must  all  be  evaluated  at  call  time.)  process 
is  the  PROCESS  in  which  the  handler  will  be  applied,  by  default  whatever  PROCESS  was  running  when 
the  interrupt  occurred. 

The  value  returned  by  the  handler  is  ignored,  unless  it  is  of  TYPE  DISMISS  ( PRIMTYPE  ATOM),  in 
which  case  none  of  the  remaining  actions  in  the  list  will  be  performed. 

The  processing  of  an  interrupt’s  actions  can  terminate  prematurely  if  a handler  calls  the  5UBR 
DISMISS  (see  below). 


21.4.  orr 

<01  F iheader) 

removes  the  association  between  i header  and  the  name  of  its  interrupt,  and  then  disables  iheader  and 
returns  it.  (An  error  occurs  if  there  is  no  association.)  If  the  interrupt  is  external,  MDL  arranges  for 
the  operating  system  not  to  signal  its  occurrences. 

<Orr  name  which) 

finds  the  IHLAP1R  associated  with  name  and  proceeds  as  above,  returning  the  IHEADER,  which  must 
be  given  only  for  certain  names , as  for  EVENT.  Caution:  if  you  <0FF  "CHAR"  ,INCHAN>,  MDL  will 
become  deaf. 

< OF  F handler  ) 

returns  handler  after  removing  it  from  its  list  of  actions.  There  is  no  effect  on  any  other  HANDLERS 
in  the  list. 

Now  that  you  know  how  to  remove  IHEADERs  and  HANDLERS  from  their  normal  places,  you  need  to 
know  how  to  put  tlirm  back: 

< EVE  NT  iheader > 

If  iheader  was  previously  disabled  or  disassociated  from  its  name,  EVENT  will  associate  and  enable  It. 
CHANDLER  i header  handler ) 
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If  handler  was  previously  removed  from  its  list,  HANDLER  will  add  it  to  the  front  of  /header's  list  of 
actions.  Note  that  process  cannot  be  specified. 


21.5.  IUCAPLR  and  HANDLER  (the  TYPEs) 

Both  these  TYPEs  ate  of  PRIMTYPE  VECTOR,  but  they  do  not  PRINT  that  way,  since  they  are  self- 
referencing.  Instead  they  PRINT  as 


ft)  pe  most  interesting-element 

The  contents  of  IHfADERs  ami  HANDLERS  can  be  changed  by  PUT,  and  the  new  values  will  then 
determine  the  behavior  of  MDL. 

Before  describing  the  elements  of  these  TYPEs  in  detail,  here  are  a picture  and  a Pattern,  both 
purporting  to  show  how  (hey  look: 

#IHEA0ER  [name: atom  or  which 
disabled? 

* > CHANDLER  [* > #HANDLER  [IHANDLER  [] 

priority]  < * + * 

applicable  | applicable 

process]  < process] 

< IMEADER  COR  ATOM  CHANNEL  LOCATIVE) 

COR  '#I0SE  0 'HOSE  -1> 

CHANDLER  HANDLER  COR  HANDLER  IHEADER)  APPLICABLE  PROCESS) 

FIX) 


21.5.1.  IHEADER 

The  elements  of  an  IHEADER  are  as  follows: 

(1)  name  of  interrupt  (ATOM,  or  CHANNEL  if  the  name  is  "CHAR",  or  LOCATIVE  if  the  name  is 

"READ"  or  "WRITE") 

(2)  non-mo  if  and  only  if  disabled 

(3)  first  HANDIER,  if  any,  else  a icro-length  HANDLER 

(4)  priority 

If  you  lose  track  of  an  Illl  ADTR,  you  can  get  it  via  the  association: 

For  "CHAR"  interrupts.  CGET  channel  INTERRUPT)  returns  the  IHEADER  or  #FALSE  ()  If  there  is 
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no  association;  <EVENT  "CHAR"  0 channel')  returns  the  IHEADER,  creating  it  if  there  is  no 
association. 

For  "READ"  interrupts.  <GET  locative  READ! -INTERRUPTS)  returns  the  IHEADER  or  IFALSE  ()  if 
theie  is  no  association:  <CVENT  "READ"  0 locative')  returns  the  IHEADER,  creating  it  if  there  is 
no  association 

For  "WRITE"  interrupts.  <GET  locative  WRITE ! -INTERRUPTS)  returns  the  IHEADER  or  #FALSE  () 
if  there  is  no  association:  <EVENI  "WRITE"  0 locative')  returns  the  IHEADER,  creating  it  if  there 
is  no  association. 

Otherwise,  the  IHEADER  is  PUT  on  the  name  ATOM  with  the  indicator  INTERRUPT.  Thus,  for 
example.  <GCT  CLOCK INTERRUPTS  INTERRUPT)  returns  the  IHEADER  for  the  clock  interrupt  or 
#EAIS(  ()  if  there  is  no  association;  <EVENT  "CLOCK"  0)  returns  the  IHEADER,  creating  it  if 
there  is  no  association. 


21.5.2.  HANDIER 

A HANDLER  specifies  a particular  action  for  a particular  interrupt.  The  elements  of  a HANDLER  are  as 
follows: 

(II  next  HANDLER  if  any.  else  a zero-length  HANDLER 

(2)  previous  HANOI  [R  or  the  IHEADER  (Thus  the  HANDLERS  of  a given  interrupt  form  a "doubly- 
linked  list"  chaining  between  each  other  and  hack  to  the  IHEADER.) 

(3)  handler  to  lie  applied  (anything  APPLICABLE  that  evaluates  its  arguments  - the  application 
is  done  not  by  APPLY  hut  by  RUN  I NT,  which  can  take  a PROCESS  argument:  see  next  line) 

(-1)  PROCLSS  in  which  the  handler  will  be  applied,  or  #PR0CESS  0,  meaning  whatever  PROCESS 
was  running  when  the  interrupt  occurred  (In  the  former  case.  RUNINT  is  applied  to  the  handler 
and  its  arguments  in  the  currently  running  PROCESS,  which  causes  an  APPLY  in  the  PROCESS 
stored  in  the  HANDIER,  which  PROCESS  must  be  RESUMABLE.  The  running  PROCESS  becomes 
RESUMABLE,  and  the  stored  PROCESS  becomes  RUNNING,  but  no  other  PROCESS  variables  (for 
example  RESUMI  R)  are  changed.) 


21.6.  Other  SUHRs 

<ON  name  applicable  priority-Jix  process  which ) 

is  equivalent  to 
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< HANDLER  <EVENT  na me  priority  which) 
applicable  process > 

ON  is  a combination  0f  EVENT  and  HANDLER:  it  creates  (or  finds)  the  IHEADER.  associates  and  enable* 
it.  adds  a HANDLER  to  the  front  of  the  list  (first  to  be  performed),  and  returns  the  HANDLER. 

<DISABLE  / header > 

is  effectively  <PH1  iheader  2 #10SE  -1>.  Actually  the  TYPE  LOSE  is  unimportant,  but  the  -1 
signifies  that  iheader  is  disabled. 

< T NAB  l E iheadcr  > 

is  effectively  <PUJ  / header  2 #L0SE  0>.  Actually  the  TYPE  LOSE  is  unimportant,  but  the  0 
signifies  that  iheader  is  enabled. 


21.7.  Priorities  and  1 ntemipt  l evels 

At  any  given  time  ihere  is  a defined  interrupt  level.  This  is  a FIX  which  determines  which 
interrupts  can  really  "interrupt"  - that  is,  cause  the  current  processing  to  be  suspended  while  their 
wants  are  satisfied.  Normal,  non-interrupt  programs  operate  at  an  interrupt  level  of  0 (zero).  An 
interrupt  is  processed  at  an  interrupt  level  equal  to  the  interrupt's  priority. 

21.7.1.  Interrupt  Processing 

Interrupts  "actually"  occur  only  at  well-defined  points  in  time:  during  a call  to  a Subroutine,  or  at 
critical  places  within  Subroutines  (for  example,  during  each  iteration  of  MAPF  on  a LIST,  which 
may  be  circular),  or  while  a PROCESS  is  "BLOCKED"  (sec  below).  No  interrupts  can  occur  during 
garbage  collection. 

What  actually  happens  when  an  enabled  interrupt  occurs  is  that  the  priority  of  the  interrupt  is 
compared  with  the  current  interrupt  level,  and  the  following  is  done: 

If  the  priority  is  greater  than  the  current  interrupt  level,  the  current  processing  is  "frozen  in  its 
tracks"  and  processing  of  the  action(s)  specified  for  that  interrupt  begins. 

If  the  priority  is  less  than  or  equal  to  the  current  interrupt  level,  the  interrupt  occurrence  is  queued 
- that  is.  the  fact  that  it  occurred  is  saved  away  for  processing  when  the  interrupt  level  becomes  low 
enough. 

When  the  processing  of  an  interrupt's  actions  is  completed,  MDL  usually  (I)  "acts  as  if"  the 
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previously-existing  imerrupt  level  is  restored,  and  processing  continues  oil  what  was  left  off 
(perhaps  for  no  time  duration);  and  (2)  "acts  as  if”  any  queued  interrupt  occurrences  actually 
occurred  right  then,  in  their  original  order  of  occurrence. 

21.7.2.  INT-ILVFl 

The  SUBR  INT-LEVEL  is  used  to  examine  and  change  the  current  interrupt  level  directly. 

< INI -LEVEl> 

simply  returns  the  current  interrupt  level. 

CINT-LEVfL  fix > 

changes  the  interrupt  level  to  its  argument  and  returns  the  previously-existing  interrupt  level. 

If  IN T - L L VI  l lowers  the  interrupt  level,  it  does  not  "really"  return  until  all  queued  occurrences  of 
interrupts  of  priority  higher  than  the  target  priority  have  been  processed. 

Setting  the  INT-LTVrL  rxlrrmrJy  high  (for  example,  <INT-LEVEL  <CHTYPE  <MIN>  FIX»)  effectively 
disables  all  interrupts  (hut  occurrences  of  enabled  interrupts  will  still  be  queued). 

If  LISTEN  or  ERROR  is  called  when  the  INT-LEVEL  is  not  zero,  then  the  typeout  will  be 

I.ISTENING-AT-IEVEL  / PROCESS  p INT-LEVEL  / 

21.7.3.  DISMISS 

DISMISS  permits  a handler  to  return  an  arbitrary  value  for  an  arbitrary  ACTIVATION  at  an  arbitrary 
interrupt  level.  The  call  is  as  follows: 

< DISMISS  valuaany  activation  int -level :fix> 

where  only  the  value  is  required.  If  activation  is  omitted,  return  is  to  the  place  interrupted  from,  and 
value  is  ignored.  If  mt-level  is  omitted,  the  INT-LEVEL  prior  to  the  current  interrupt  is  restored. 


J 
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21-8.  Specific  Interrupts 

Descriptions  of  the  characteristics  of  particular  "built-in"  MDL  interrupts  follow.  Each  is  named  by 
its  STRING  name.  Expect  this  list  to  be  incomplete  yesterday. 

"CHAR"  is  currently  the  most  complex  built-in  interrupt,  because  it  serves  duty  in  several  ways. 
These  different  ways  will  be  described  in  several  different  sections.  All  ways  are  concerned  with 
characters  or  machine  words  that  arrive  or  depart  at  unpredictable  times,  because  MDL  is 
communicating  with  a person  or  another  processor.  Each  "CHAR"  IHEADER  has  a CHANNEL  for  the 
element  that  names  the  interrupt,  and  the  mode  of  the  CHANNEL  tells  what  kinds  of  "CHAR" 
interrupts  occur  to  lie  handled  through  that  IHEADER. 

(1)  If  the  CHANNEL  is  for  input.  "CHAR"  occurs  every  time  an  "interesting"  character  (see  below) 

is  received  from  the  CIIANNf L’s  real  terminal,  or  any  character  is  received  from  the 
CIIANNI  L's  pseudo-terminal,  or  a character  or  word  is  received  from  the  CHANNEL’S  Network 
socket,  or  indeed  (in  the  ITS  version)  the  operating  system  generates  an  interrupt  for  any 
reason. 

(2)  If  the  CHANNEL  is  for  output  to  a pseudo-terminal  or  Network  socket,  "CHAR*  occurs  every 

lime  a character  or  word  is  wanted. 

(3)  If  the  CHANNEL  is  for  output  to  a terminal.  "CHAR"  occurs  every  time  a line-feed  character  is 

output  or  (in  the  ITS  version)  the  operating  system  generates  a screen-full  interrupt  for 
the  terminal. 


21.8.1.  "CHAR"  received 

A handler  for  an  input  "CHAR"  interrupt  on  a real  terminal  must  take  two  arguments:  the 
CHARACTER  which  was  typed,  and  the  CHANNEL  on  which  it  was  typed. 

In  the  ITS  version,  the  "interesting"  characters  are  those  "enabled  for  interrupts"  on  a real  terminal, 
namely  through  ‘"G,  through  and  DEL  (that  is.  ASCII  codes  0-7,  13-37,  and  177  octal). 

In  the  Tenrv  and  Tnps-20  versions,  the  operating  system  can  be  told  which  characters  typed  on  a 
terminal  should  cause  this  interrupt  to  occur,  by  calling  the  SUBR  ACTIVATE-CHARS  with  a STRING 
argument  containing  those  characters  (no  more  than  six.  all  with  ASCII  codes  less  than  33  octal).  If 
called  with  no  argument.  ACTIVATE-CIIARS  returns  a STRING  containing  the  characters  that  currently 
interrupt.  Initially,  only  AG,  AS,  and  ^0  interrupt. 

An  initial  MDL  already  has  "CHAR"  enabled  on  .INCHAN  with  priority  8 (eight),  the  SUBR  QUITTER 
for  a handler,  to  run  in  ^PROCESS  0 (the  running  PROCESS):  this  is  how  AG  and  *S  are  processed.  In 
addition,  every  time  a new  CHANNEL  is  OPENed  in  "READ"  mode  to  a terminal,  a similar  IHEADER  and 
HANDLER  are  associated  with  that  new  CHANNEL  automatically.  These  automatically-generated 
IHEADERs  and  HANDLERS  use  the  standard  machinery,  and  they  can  be  DISABLEd  or  OFFed  at  will. 
However,  the  IHEADER  for  .INCHAN  should  not  be  OFFed:  MDL  knows  that  S is  typed  only  by  an 
interrupt! 
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Example:  the  following  causes  the  given  message  to  be  printed  out  whenever  a AY  is  typed  on 
.INCHAN: 

<SE  T H < HANOI  I R <GET  . INCHAN  INTERRUPT) 

FUNCTION  ((CHAR  CHAN) 

*DECL  ((VALUE)  ANY  (CHAR)  CHARACTER  (CHAN)  CHANNEL) 

< AND  <==?  .CHAR  ! \AY> 

<I'RINC  " [Some  of  my  best  friends  are  AYs.]  ">>)>>i 
^HANDLER  FUNCTION  ((CHAR  CHAN)  ...) 

<♦  2 AY  [Some  of  my  best  friends  are  AYs.]  2>S 
4 

COTE  .HH 

#HANDLER  #EUNC1I0N  (...) 

Note  that  occurrences  of  "CHAR"  do  ncH  wait  for  the  S to  be  typed,  and  the  interrupting  character  is 
omitted  from  the  input  stream. 

A "CHAR"  interrupt  can  also  he  associated  with  an  input  CHANNEL  open  to  a Network  socket  ("NET" 
device).  A handler  gets  applied  to  a NL ESTATE  array  (which  see)  and  the  CHANNEL. 

In  the  ITS  version,  a "CHAR"  interrupt  can  also  be  associated  with  an  input  CHANNEL  open  to  a 
pseudo-terminal  ("STY"  device  and  friends).  An  interrupt  occurs  when  a character  is  available  for 
input.  These  interrupts  are  set  up  in  exactly  the  same  way  as  real-terminal  interrupts,  except  that  a 
handler  gets  applied  to  only  one  argument,  the  CHANNEL.  Pseudo-terminals  are  not  available  in  the 
Tenex  and  Tops-20  versions. 

For  any  other  flavor  of  ITS  channel  interrupt,  a handler  gets  applied  to  only  one  argument,  the 
CHANNEL. 


21.8.2.  "CHAR"  wanted 

A "CHAR"  interrupt  can  be  associated  with  an  output  CHANNEL  open  to  a Network  socket  ("NET* 
device).  A handler  gets  applied  to  a NE T STATE  array  (which  see)  and  the  CHANNEL. 

In  the  ITS  version,  a "CHAR”  interrupt  can  also  be  associated  with  an  output  CHANNEL  open  to  a 
pseudo-terminal  ("STY"  device  and  friends).  An  interrupt  occurs  when  the  program  at  the  other  end 
needs  a character  (and  the  operating-system  buffer  is  empty).  A handler  gets  applied  to  one 
argument,  the  CHANNEL.  Pseudo-terminals  are  not  available  in  the  Tenex  and  Tops-20  versions. 


21.8.3.  "CHAR"  for  new  line 

A handler  for  an  output  "CHAR"  interrupt  on  a real  terminal  must  take  one  or  two  arguments  (using 
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"OPTIONAL"  or  "TUPLE"):  if  Mvo  arguments  are  supplied  by  the  interrupt  system,  they  are  the  line 
number  ( T I X)  and  the  CHANNEL,  respectively,  and  the  interrupt  is  for  a line-feed;  if  only  one 
argument  is  supplied  (only  in  the  ITS  version),  it  is  the  CHANNEL,  and  the  interrupt  is  for  a full 
terminal  screen.  Note:  the  supplied  line  number  comes  from  the  CHANNEL,  and  it  may  not  be 
accurate  if  the  program  alters  it  in  subtle  ways,  for  example,  via  IMAGE  calls  or  special  control 
characters.  (The  program  can  compensate  by  PUTting  the  proper  line  number  into  the  CHANNEL.) 

21.8.4.  "GC" 

| 

"GC"  occurs  just  after  every  garbage  collection.  Enabling  this  interrupt  is  the  only  way  a program 
can  know  that  a garbage  collection  has  occurred.  A handler  for  "GC"  takes  three  arguments.  The 
first  is  a El  OAT  indicating  the  number  of  seconds  the  garbage  collection  took.  The  second  argument 
is  a FIX  indicating  the  cause  of  the  garbage  collection,  as  follows  (chapter  22): 

0.  Program  called  GC. 

1.  Movable  storage  was  exhausted. 

2.  Control  stack  overflowed. 

3.  Top-level  1 VALs  overflowed. 

4.  OVAL  vector  overflowed. 

5.  TYPE  vector  overflowed. 

6.  Immovable  garbage-collected  storage  was  exhausted. 

7.  Internal  stack  overflowed. 

8.  Both  control  and  internal  stacks  overflowed  (rare). 

9.  Pure  storage  was  exhausted. 

10.  Second,  exhaustive  garbage  collection  occurred. 

The  third  argument  is  an  ATOM  indicating  what  initiated  the  garbage  collection:  GC-READ,  BLOAT, 

GROW,  LIST.  VECTOR.  SET.  SETG,  TRCEZE,  GC,  NEWTYPE,  PURIFY,  PURE-PAGE-LOADER  (pure 
storage  was  exhausted),  or  1N1FRRUPT-IIANDLER  (stack  overflow,  unfortunately). 


21.8.5.  "01VI  RT-AGC" 

"DIVERT -AGC"  ("Automatic  Garbage  Collection")  occurs  just  before  a deferrable  garbage  collection 
that  is  needed  because  of  exhausted  movable  garbage-collected  storage.  Enabling  this  interrupt  is 
the  only  wav  a program  can  know  that  a garbage  collection  is  about  to  occur.  A handler  takes  two 
arguments;  a FIX  telling  the  number  of  machine  words  needed  and  an  ATOM  telling  what  initiated 
the  garbage  collection  (see  above).  If  it  wishes,  a handler  can  try  to  prevent  a garbage  collection  by 
calling  BLOAT  with  the  FIX  argument.  If  the  pending  request  for  garbage-collected  storage  cannot 
then  be  satisfied,  a garbage  collection  occurs  anyway.  AGC-FLAG  is  SET  to  T while  the  handler  is 
running,  so  that  new  storage  requests  do  not  try  to  cause  a garbage  collection. 
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21.8.6.  "CLOCK" 

"CLOCK",  when  enabled,  occurs  every  half  second  (the  ITS  "slow-clock"  tick).  It  is  not  available  in 
the  Tencx  and  Tops-20  versions.  It  wants  handlers  which  take  no  arguments.  Example: 

<0N  "CLOCK"  <FllNCTION  ()  <PR1NC  "TICK  "»  1> 

21.8.7.  "BLOCKED" 

"BLOCKED”  occurs  whenever  any  PROCESS  (not  only  the  PROCESS  which  may  be  in  a HANDLER)  starts 
waiting  for  terminal  input:  that  is.  an  occurrence  indicates  that  somewhere,  somebody  did  a READ, 
READCHR,  Nl  X1CIIR,  1YI,  etc.  to  a terminal.  A handler  for  a "BLOCKED"  interrupt  should  take  one 
argument,  namely  the  PROCESS  which  started  waiting  (which  will  also  be  the  PROCESS  in  which  the 
handler  runs,  if  no  specific  one  is  in  the  HANDLER). 

Example:  the  following  will  cause  MDL  to  acquire  a * prompting  character. 

CON  "BLOCKED"  IFUNCTION  ((IGNORE)  CPRINC  !\*>)  5> 

21.8.8.  "UNBLOCKED” 

"UNBLOCKED"  occurs  whenever  a S tLSC)  is  typed  on  a terminal  if  a program  was  hanging  and 
waiting  for  input,  or  when  a TYI  call  (which  see)  is  satisfied.  A handler  takes  one  argument:  the 
CHANNEL  via  which  the  $ or  character  is  input. 

21.8.9.  "READ"  and  "WRIIE" 

"READ"  and  "WRITE"  are  associated  with  read  or  write  references  to  MDL  objects.  These  interrupts 
are  often  called  "monitors",  and  enabling  the  interrupt  is  often  called  "monitoring"  the  associated 
object.  A "read  reference"  to  an  ATOM’S  local  value  includes  applying  BOUND?  or  ASSIGNED?  to  the 
ATOM;  similarly  for  a global  value  and  GASSIGNED?.  If  the  INT-LEVEL  is  too  high  when  "READ"  or 
"WRITE"  occurs,  an  error  occurs,  because  occurrences  of  these  interrupts  cannot  be  queued. 

Monitors  are  set  up  with  FVFNT  or  ON,  using  a locative  to  the  object  being  monitored  as  the  extra 
which  argument,  just  as  a CHANNEL  is  given  for  "CHAR".  A handler  for  "READ"  takes  two  arguments: 
the  locative  and  the  TRAME  of  the  function  application  that  makes  the  reference.  A handler  for 
"WRITE"  takes  three  arguments:  the  locative,  the  new  value,  and  the  FRAME.  For  example: 

<SET  A (1  2 3 ) >J 
(1  2 3) 

<SET  B <AT  .A  2>>S 
r'LOCL  2 
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CON  "WR lit"  CFUNCTION  (OBJ  VAL  FRM) 

#0ECL  ((VALUE  VAL)  ANY  (OBJ)  LOCATIVE  (FRM)  FRAME) 

<CRLF> 

CPRINC  "Program  changed  "> 

< PR  IN  1 .OBJ> 

CPRINC  " to  "> 

C PR  IN  1 . VAL> 

CPRINC  " via  "> 

C PR  IN  1 . FRM> 

CCRLF» 

4 0 . B>$ 

^HANOI I R ^FUNCTION  (...) 

Cl  .A  10>I 
(10  2 3) 

C2  .A  20 >$ 

Program  changed  #LOCL  2 to  20  via  #FRAME  PUT 
( 10  20  3) 

corr  "write"  . b>s 

IHLAOFR  #L0CL  20 


21.8.10.  "SYSOOWN" 

"SYSDOWN"  occurs  when  a system-going-down  or  system-revived  signal  is  received  from  ITS.  It  is 
not  available  in  the  Tenex  and  Tops-20  versions.  If  no  IHEADER  is  associated  and  enabled,  a 
warning  is  printed  on  t lie  terminal.  A handler  takes  one  argument:  a FIX  giving  the  number  of 
thirtieths  of  a second  until  the  shutdown  (-1  for  a reprieve). 


21. 8.11.  "ERROR" 

In  an  effort  to  simplify  error  handling  by  programs.  MDL  has  a facility  allowing  errors  to  be 
handled  like  interrupts.  SETGing  ERROR  to  a user  function  is  a distasteful  method,  not  safe  if  any 
bugs  are  around.  An  "ERROR"  interrupt  wants  a handler  that  takes  any  number  of  arguments,  via 
"TUPLE" . When  an  error  occurs,  handlers  are  applied  to  the  FRAME  of  the  ERROR  call  and  the  TUPLE 
of  ERROR  arguments.  If  a given  handler  "takes  care  of  the  error",  it  can  ERRET  with  a value  from  the 
ERROR  FRAME,  after  having  done  CINT-LEVEL  0>.  If  no  handler  takes  care  of  the  error,  it  fails  into 
the  normal  ERROR. 

If  an  error  occurs  at  an  I NT- L EVE  L greater  tlia.i  or  equal  to  that  of  the  "ERROR"  interrupt,  real 
ERROR  will  be  called,  because  "ERROR"  interrupts  cannot  be  queued. 


■ 
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21.8.12.  "IPC" 

"IRC"  occurs  when  a message  is  received  on  the  ITS  IPC  device  (chapter  23).  It  is  not  available  in 
the  Tenex  and  Tnps-20  versions. 


21.8.13.  " INFERIOR" 

"INFERIOR"  occurs  when  an  inferior  ITS  process  interrupts  the  MDL  process.  It  is  not  available  in 
the  Tenex  and  Tops-20  versions.  A handler  takes  one  argument:  a FIX  between  0 and  7 inclusive, 
telling  which  inferior  process  is  interrupting. 


21.8. I I.  "RUN!  " and  "Rl  A|  T" 

These  are  noi  available  in  the  Tenex  and  Tops-20  versions. 

"RUNT",  if  enabled,  occurs  once.  N seconds  of  MDL  running  time  (CPU  time)  after  calling 
<RUNTIMER  N:fi\ -or-llost > , which  returns  its  argument.  A handler  takes  no  arguments.  If  RUNTIMER 
is  called  with  no  argument,  it  returns  a FIX,  the  number  of  run-time  seconds  left  until  the  interrupt 
occurs,  or  *FAlsr  ( ) if  the  interrupt  is  not  going  to  occur. 

"REAIT",  if  enabled,  occurs  every  N seconds  of  real-world  time  after  calling  <REALTIMER  N:fix-or- 
flojt>,  which  returns  its  argument.  A handler  takes  no  arguments.  <REALTIMER  0>  tells  the 
operating  system  not  to  generate  real-time  interrupts.  If  REALTIMER  is  called  with  no  argument,  it 
returns  a FIX,  the  number  of  real-time  seconds  given  in  the  most  recent  call  to  REALTIMER  with  an 
argument,  or  #FAISF  ( ) if  REALTIMER  has  not  been  called. 


21.8.15.  "Dangerous"  Interrupts 

"MPV"  ("memory  protection  violation”)  occurs  if  MDL  tries  to  refer  to  a storage  address  not  in  its 
address  space  "PURI"  occurs  if  MDL  tries  to  alter  read-only  storage.  "ILOPR"  occurs  if  MDL 
executes  an  illegal  instruction  ("operator").  "PARITY"  occurs  if  the  CPU  detects  a parity  error  in 
MDL’s  address  space.  All  of  these  require  a handler  that  takes  one  argument:  the  address  (TYPE 
WORD)  following  the  instruction  that  was  being  executed  at  the  time. 

"IOC"  occurs  if  MDL  tries  to  deal  illegally  with  an  I/O  channel.  A handler  must  take  two 
arguments:  a three-element  FALSE  like  one  that  OPEN  might  return,  and  the  CHANNEL  that  got  the 
error.  / 

Ideally,  these  interrupts  should  never  occur.  In  fact,  in  the  Tenex  and  Tops-20  versions,  these 
interrupts  always  go  to  the  superior  operating-system  process  instead  of  to  MDL.  In  the  ITS 
version,  if  and  when  a "dangerous"  interrupt  docs  occur: 
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If  iio  IHEADFR  is  associated  with  the  interrupt,  then  the  interrupt  goes  to  the  superior 
operating-system  process. 

If  an  I HEADER  is  associated  but  disabled,  the  error  DANGEROUS-INTERRUPT-NOT-HANDLED  occurs 
(FILE-SYSTEM-ERROR  for  "IOC"). 

If  an  I HE  ADI  R is  associated  and  rnablcd,  but  the  INT-LEVEL  is  too  high,  the  error  ATTEMPT-TO- 
DEFER-UNDEFERABLE- INTERRUPT  occurs. 


21.9.  User-Def  i n ed  I 1 itcrrn p js  (INTERRUPT) 

If  the  interrupt  name  given  to  EVENT  or  ON  is  md  one  of  the  standard  predefined  interrupts  of  MDL. 
they  will  gleefully  create  an  ATOM  in  <INTERRUPTS>  and  an  associated  IHEADER  anyway,  making  the 
assumption  that  you  are  setting  up  a "program-defined"  interrupt. 

Program-defined  interrupts  are  made  to  occur  by  applying  the  SUBR  INTERRUPT,  as  in 

CINTERRUPT  name  argl  ...  argN> 

where  name  is  a STRING,  ATOM  or  IIIEADER,  and  argl  through  argN  are  the  arguments  wanted  by  the 
handlers  for  the  interrupt. 

If  the  interrupt  specified  by  INTERRUPT  is  enabled,  INTERRUPT  returns  T;  otherwise  it  returns 
#FALSE  ( ).  All  the  usual  priority  and  queueing  rules  hold,  so  that  even  if  INTERRUPT  returns  T,  it 
is  possible  that  nothing  "really  happened"  (yet). 

INTERRUPT  can  also  he  used  to  cause  "artificial”  occurrences  of  standard  predefined  MDL  interrupts. 

Making  a program-defined  interrupt  occur  is  similar  to  calling  a handler  directly,  but  there  are 
differences.  The  value  returned  by  a handler  is  ignored,  so  side  effects  must  be  used  in  order  to 
communicate  information  hack  to  the  caller,  other  than  whether  any  handler  ran  or  will  run.  One 
good  nsp  for  a program-defined  interrupt  is  to  use  the  priority  and  queueing  machinery  of  INT- 
LEVEL  to  control  the  execution  of  functions  that  must  not  run  concurrently.  For  example,  if  a 
"CHAR"  handler  just  deposits  characters  in  a buffer,  then  a function  to  process  the  buffered 
characters  should  probably  run  at  a higher  priority  level  --  to  prevent  unpredictable  changes  to  the 
buffer  during  the  processing  - and  it  is  natural  to  invoke  the  processing  with  INTERRUPT. 

In  more  exotic  applications,  INTERRUPT  can  signal  a condition  to  be  handled  by  an  unknown 
number  of  independent  and  "nameless"  functions.  The  functions  are  "nameless”  because  the  caller 
doesn't  know  their  names,  only  the  name  of  the  interrupt.  This  programming  style  is  modular  and 
event-driven,  and  it  is  one  way  of  implementing  "heuristic"  algorithms.  In  addition,  each  HANDLER 
has  a PROCESS  in  which  to  run  its  handler,  and  so  the  different  handlers  for  a given  condition  can 
do  their  thing  in  different  environments  quite  easily,  with  less  explicit  control  than  when  using 
RESUME. 
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21.10.  Walling  for  luieriupts 


21.10.1.  HANG 

OIANG  /v  ,',y> 

suspends  execution,  mteiiuptilily.  witlmul  consuming  any  CPU  time,  potentially  forever.  HANG  Is 
handy  «o(  a program  that  cannot  do  anything  until  an  interrupt  occurs.  If  the  optional  pred  is 
given,  it  is  evaluated  every  time  rn  interrupt  occurs  and  is  dismissed  back  into  the  HANG;  if  the 
result  of  evaluation  is  not  I Al  SI  , HANG  unhangs  and  returns  it  as  a value.  If  pred  is  not  given, 
there  iiad  better  he  a named  ACI1VA1  ION  somewhere  to  which  a handler  can  return. 


21.10.2.  SI  I I P 

<Sltf P timedi  v or  - UoM  pred > 

suspends  execution,  intorruptihly.  without  consuming  any  CPU  time,  for  time  seconds,  where  time  is 
non-negative,  and  then  returns  1 . pred  is  the  same  as  for  HANG. 
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Chapter  22.  Storage  Management 


The  reason  this  chapter  comes  so  late  in  this  document  is  that,  except  for  special  cases,  MDL 
programs  have  their  storage  needs  handled  automatically.  There  is  usually  no  need  even  to  consider 
storage  management,  except  as  it  affects  efficiency  (chapter  24).  This  chapter  gives  some 
explanation  of  why  this  is  so.  and  covers  those  special  means  by  which  a program  can  assume 
control  of  storage  management. 

The  MDI.  address  space  is  divided  into  five  parts,  which  are  usually  called 

(1)  movable  garbage-collected  space, 

(2)  immovable  space  (both  garbage-collected  and  not), 

(3)  user  pnre/page  space, 

(4)  pure-RSUBR  mapping  space,  and 

(5)  internal  storage. 

Internal  storage  occupies  both  the  highest  and  lowest  addresses  in  the  address  space,  and  its  sire 
never  changes  as  MDL.  executes.  The  other  spaces  can  vary  in  size  according  to  the  needs  of  the 
executing  program.  Generally  the  interpreter  allocates  a contiguous  set  of  addresses  for  each  space, 
and  each  space  gradually  fills  up  as  new  objects  are  created  and  as  disk  files  are  mapped  in.  The 
action  taken  when  a space  becomes  full  varies,  as  discussed  below. 


22.1.  Mova  hie  Garbage-collected  Storage 

Most  storage  used  explicitly  by  MDL  programs  is  obtained  from  a pool  of  free  storage  managed  by 
a "garbage  collector".  Storage  is  obtained  from  this  pool  by  the  SUBRs  which  construct  objects. 
When  such  a 5IIIIR  finds  that  the  pool  of  available  storage  is  exhausted,  it  automatically  calls  the 
garbage  collector. 

The  garbage  collector  has  two  algorithms  available  to  it:  the  "copying"  algorithm,  which  is  used  by 
default,  and  the  "mark-sweep"  algorithm.  Actually,  one  often  speaks  of  two  separate  garbage 
collectors,  the  copying  one  and  (he  "mark-sweep"  one,  because  each  is  an  independent  module  that 
is  mapped  in  to  the  interpreter's  internal  storage  from  disk  only  during  garbage  collection.  For 
simplicity,  this  document  speaks  of  the"  garbage  collector,  which  has  two  algorithms. 
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The  garbage  colleclor  examines  the  storage  pool  and  marks  all  the  objects  there,  separating  them 
into  two  classes:  those  which  cannot  possibly  be  referenced  by  a program,  and  those  which  can. 
The  "copying"  algorithm  then  copies  the  latter  into  one  compact  section  of  the  pool,  and  the 
remainder  of  the  pool  is  made  available  for  newly  constructed  objects.  The  "mark-sweep"  algorithm, 
instead,  puts  ail  objects  in  the  former  class  (garbage)  into  "free  lists",  where  the  object-construction 
SUBRs  can  find  them  and  re-use  their  storage. 

If  the  request  for  more  storage  still  cannot  be  satisfied  from  reclaimed  storage,  the  garbage  collector 
will  attempt  to  obtain  more  total  storage  from  the  operating  system  under  which  MDL  runs.  (Also, 
if  there  is  a gross  superfluity  of  storage  space,  the  garbage  collector  will  politely  return  some 
storage  to  the  operating  system.)  Only  when  the  total  system  resources  are  exhausted  will  you 
finally  lose 

Thus,  if  you  just  "forget  about"  an  object,  that  is,  lose  all  possible  means  of  referencing  it,  its 
storage  area  is  automatically  reclaimed.  "Object"  in  this  context  includes  that  stack-structured 
storage  space  used  in  PROCF.SSes  for  functional  application. 


22.1. 1.  Stacks  and  Other  Internal  Vectors 

Control  stacks  arc  used  in  MDL  to  control  the  changes  in  environment  caused  by  calling  and 
binding.  Each  act  ire  PROCESS  has  its  own  control  stack.  On  this  stack  are  stored  LVALs  for  ATOMs; 
PRIMTYPF  TUPIEs,  which  arc  otherwise  like  VECTORs:  PRIMTYPE  FRAMES,  which  are  generated  by 
calling  Subroutines:  and  ACTIVATIONS,  which  are  generated  by  calling  FUNCTIONS  with  named 
ACTIVATIONS.  PROG,  and  RFPEAT.  TAG  and  LLOC  can  make  TAGs  and  LOCDs  (respectively)  that  refer  to 
a specific  place  on  a specific  control  stack.  (LEGAL?  returns  T if  and  only  if  the  portion  of  the 
control  stack  in  which  it'  argument  is  found  or  to  which  its  argument  refers  is  still  active,  or  if  its 
argument  doesn't  care  about  the  control  stack.  The  garbage  collector  may  change  a non-LEGAL? 
object  to  TYPE  ILLEGAL  before  reclaiming  it.)  As  the  word  "stack"  implies,  things  can  be  put  on  it 
and  removed  from  it  at  only  one  end,  called  the  top.  It  has  a maximum  size  (or  depth),  and 
attempting  to  put  too  many  things  on  it  will  cause  overflow.  A stack  is  stored  like  a VECTOR,  and 
it  must  be  GROWn  if  and  when  it  overflows. 

A control  stack  is  actually  two  stacks  in  one.  One  section  is  used  for  "top-level"  LVALs  --  those  SET 
while  the  ATOM  is  not  bound  by  any  active  Function’s  argument  LIST  or  Subroutine's  SPECIAL 
binding  - and  the  other  section  is  used  for  everything  else.  Either  section  can  overflow,  of  course. 
The  top-lcvel-LVAL  section  is  below  the  other  one,  so  that  a top-level  LVAL  will  be  found  only  if  the 
ATOM  is  not  currently  bound  elsewhere,  namely  in  the  other  section. 

MDL  also  has  an  internal  stack,  used  for  calling  and  temporary  storage  within  the  interpreter  and 
compiled  programs,  it  too  is  stored  like  a VECTOR  and  can  overflow.  There  are  other  internal 
vectors  that  can  overflow:  the  "global  vector"  holds  pairs  ("slots")  of  ATOMs  and  corresponding  GVALs 
("globally  bound"  or  GBOIIND?  means  that  the  AT'M  in  question  is  in  this  vector,  whether  or  not  it 
currently  has  a global  value),  and  the  "TYPE  vector"  holds  TYPE  names  (predefined  and  NEWTYPEs)  and 
how  they  are  to  be  treated. 
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22.2.  Innnovalilc  S i oragc 


22.21.  Carbagr-rolircted:  FREEZE 

In  very  special  circumstances.  such  as  debugging  RSUBRs.  you  may  need  to  prevent  an  object  from 
being  moved  by  the  garbage  collector.  FREEZE  takes  one  argument,  of  PRIMTYPE  VECTOR,  UVECTOR, 
STRING,  BYTES  or  TUPLE.  It  copies  its  argument  into  non-moving  garbage-collected  space.  FREEZE 
returns  the  copy  CIITYPEd  m its  PRIMTYPE,  except  in  the  case  of  a TUPLE,  which  is  chaneed  to  a 
VECTOR.  6 


22.2.2.  Non -garbage-collected:  STORAGE  (the  PRIMTYPE) 

An  object  of  PR1MIYPL  SlORAGt  is  really  a frozen  UVECTOR  whose  UTYPE  is  of  PRIMTYPE  WORD,  but 
it  is  always  pointed  to  by  something  internal  to  MDL  and  thus  is  never  garbage-collectible.  The  use 
of  FREEZE  is  always  preferable,  except  when  for  historical  reasons  a STORAGE  is  necessary. 


22.3.  Other  Storage 

User  pure/page  space  serves  two  purposes.  First,  when  a user  program  PURIFYs  (see  below)  MDL 
objects,  they  arc  copied  into  this  space.  Second,  so-called  hand-crafted  RSUBRs  (assembled  but  not 
compiled)  can  call  on  the  interpreter  to  map  pages  of  disk  files  into  this  space  for  arbitrary 
purposes. 

Pure-RSUBR  mapping  space  is  used  by  the  interpreter  to  dynamically  map  pages  of  pure  compiled 
programs  into  ami  out  of  the  MDL  address  space.  Pure  code  can  refer  to  impure  storage  through 
the  transfer  vector",  another  internal  vector.  This  space  is  the  most  vulnerable  to  being  compressed 
in  size  by  the  long-term  growth  of  other  spaces. 

Internal  storage  has  both  pure  and  impure  parts.  The  interpreter  program  itself  is  pure  and 
sharablc.  while  impure  storage  is  used  for  internal  pointers,  counters,  and  flags,  for  example, 
pointers  to  the  boundaries  of  other  spaces.  In  the  pure  part  of  this  space  are  most  of  the  ATOMS  in 
an  initial  MDL.  along  with  their  0BLI5T  buckets  (LISTs)  and  GVAL  slots  (a  pure  extension  of  the 
global  vector),  where  possible.  A SET  or  SETG  of  a pure  ATOM  automatically  impurifies  the  ATOM  and 
as  much  of  its  OBLIST  bucket  as  needs  to  be  impure. 
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22.4  Garbage  Gollectjion:  Details 

When  cither  of  the  garbage-collected  spaces  (movable  or  immovable)  becomes  full,  MDL  goes 
through  the  following  procedure: 

(1)  A "DIVERI-AGC"  interrupt  occurs  if  the  garbage  collection  can  be  deferred  temporarily  by 
shifting  lioumlaiirs  between  storage  spaces  slightly.  The  interrupt  handler  may  postpone  a garbage 
collection  by  moving  boundaries  itself  with  a call  to  BLOAT  (below). 

(2)  The  garbage  collectni  begins  execution.  The  "copying"  algorithm  creates  an  inferior  operating- 
system  process  (named  AGC  in  the  I I S version)  whose  address  space  is  used  to  hold  the  new  copies  of 
non-garbage  ob  jects.  Mill  gains  access  to  the  inferior's  address  space  through  two  pages  ("frontier" 
and  "window")  in  its  internal  space  that  are  shared  with  the  inferior.  If  the  garbage  collection 
occurred  because  movable  garbage-collected  space  was  exhausted,  then  the  "mark-sweep"  algorithm 
might  be  used  instead  (see  below),  and  no  inferior  process  is  created. 

(3)  The  garbage  collector  marks  all  objects  that  can  possibly  be  referenced  hereafter.  It  begins  with 
the  <MAII!''  PROCESS  and  the  currently  running  PROCESS  <ME>,  considered  as  vectors  containing  the 
control  stacks,  object  pointers  in  live  registers,  etc.  Every  object  in  these  "PROCESS  vectors"  is 
marked  "accessible",  and  every  element  of  these  objects  (bindings,  etc  ),  and  so  on  recursively.  The 
"copying"  algorithm  moves  objects  into  the  inferior  process's  address  space  as  it  marks  them. 

(41  If  the  garbage  collection  is  "exhaustive"  -•  which  is  possible  only  in  the  copying"  algorithm  — 
then  both  the  chain  of  associations  and  top-level  local/global  bindings  are  examined  thoroughly, 
which  takes  mmo  time  but  is  more  likely  to  uncover  garbage  therein  In  a normal  garbage 
collection  these  constructs  are  not  treated  specially. 

(5)  Finally,  the  "mark-sweep"  algorithm  sweeps  through  the  storage  space,  adding  unmarked  objects 
to  the  internal  fiee  lists  for  later  re-use.  The  "copying"  algorithm  maps  the  inferior  process's 
address  space  into  MDL’s  own,  replacing  old  garbagey  storage  with  the  new  compact  storage,  and 
the  inferior  process  is  destroyed. 


22.5.  GC 


<GC  r\h  ':t<th:,c-or-jny  ms-froqJix) 

causes  the  garbage  collector  to  run  and  returns  the  total  number  of  words  of  storage  reclaimed.  All 
of  its  arguments  are  optional:  if  they  are  not  supplied,  a call  to  GC  simply  causes  a "copying" 
garbage  collection 

If  mm  is  explicitly  supplied  as  an  argument,  a garbage-collection  parameter  is  changed  permanently 
before  the  garbage  collector  runs,  min  is  the  smallest  number  of  words  of  "free"  (unclaimed. 
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available  fm  use)  movable  garbage-collected  storage  the  garbage  collector  will  be  satisfied  with 
having  after  it  is  done  each  time.  Initially  it  is  8192  words.  If  the  total  amount  of  reclaimed 
storage  is  less  than  mm.  the  garbage  collector  will  ask  the  operating  system  for  enough  storage  (in 
102‘1-wold  blocks!  to  make  it  up.  N R : the  system  may  be  incivii  enough  not  to  grant  the  request:  in 
that  case,  the  garbage  collector  will  be  content  with  what  it  has,  unjess  that  is  not  enough  to  satisfy 
a pending  request  for  storage.  Then  it  will  inform  you  that  it  is  losing.  A large  mn  will  result  in 
fewer  total  gaibage  collections,  but  they  will  take  longer  since  the  totel  quantity  of  storage  to  be 
dealt  with  will  grtirially  lie  larger  Smaller  mms  result  in  shorter,  more  frequent  garbage  collections. 

tells  whether  or  not  this  gaibage  collection  should  be  "exhaustive".  It  is  optional,  a FAcSE  by 
default  The  diffeiencr  between  normal  and  exhaustive  "copying"  garbage  collections  is  whether 
certain  kinds  of  stoiage  that  require  complicated  treatment  (for  example,  associations!  are  reclaimed. 
An  exhaustive  gaibage  collection  occurs  every  eighth  time  that  the  "copying"  algorithm  is  used,  or 
when  GC  is  called  with  this  argument  true,  or  when  a normal  garbage  collection  cannot  satisfy  the 
storage  request 

mi-ireu  gives  the  number  of  times  the  "mark-sweep"  algorithm  should  be  used  hereafter  for  every 
time  the  normal  "lopying  algorithm  is  uses!  Giving  0 for  ms  beq  means  never  to  use  the  "mark- 
sweep  algorithm,  and  giving  <CIITYPl  <M1N>  f IX>  means  (effectively)  always  to  use  it.  The  "mark- 
sweep"  algorithm  uses  considerably  less  processor  time  than  the  "copying"  algorithm,  but  it  never 
shrinks  the  fire  stoiage  pool,  and  in  fact  the  pool  can  become  fragmented.  The  "mark-sweep" 
algorithm  could  he  useful  in  a program  system  (such  as  the  compiler)  where  the  site  of  the  pool 
rarely  changes,  but  objects  are  created  and  thrown  away  continuously. 


22.IL_Bl.OA! 

BLOAT  is  used  to  cause  a temporary  expansion  of  the  available  storage  space  with  or  without 
changing  the  garbage-collection  parameters.  BLOAT  is  particularly  useful  for  avoiding  unnecessary 
garbage  collections  when  loading  a large  file.  It  will  cause  (at  most)  one  garbage  collection,  at  the 
end  of  which  the  available  storage  will  be  at  least  the  amount  specified  in  the  call  to  BLOAT. 
(Unless,  of  course,  the  operating  system  is  cranky  and  will  not  provide  the  storage.  Then  you  will 
get  an  error.  <1  RRI  1 l'  from  this  error  will  cause  the  BLOAT  to  return  1,  which  usually  Just  causes 
you  to  lose  at  a latrr  time  - unless  the  operating  system  feels  nicer  when  the  storage  Is  absolutely 
necessary.) 

A call  to  Rl  OAT  looks  like  this: 

< BLOAT  (re  rdk  Id  $lb  tip  sto  pslk 

mm  pl(l  p^lb  pt\p  imp  pur  dpstk  dslk> 

where  all  arguments  on  the  first  line  above  are  FIX,  optional  (0  by  default),  and  indicate  the 
following: 
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tr,K  nuinlirr  of  words  of  free  movable  storage  desired  (for  LISTs,  VECTORS,  ATONs,  etc.) 

sfA:  number  of  words  of  free  control-stack  space  desired  (for  functional  applications  and 
binding  of  ATOMO 

Ul:  number  of  new  top-level  l.VAls  for  which  to  leave  space  (SETs  of  ATONs  which  are  not 
cm  rent  ly  bound! 

I'Jb'.  uumher  of  new  (.VAt  s for  which  to  leave  space  (in  the  global  vector) 

t \ p:  number  of  new  TYPE  definitions  for  which  to  leave  space  (in  the  TYPE  vector) 

sfo:  iiumliei  of  words  of  immovable  gaibage-collected  storage  desired 

number  of  winds  of  fiee  internal-stack  space  desired  (for  READing  large  STRINGS,  and 
calling  routines  within  the  interpreter  and  compiled  programs) 

Arguments  on  the  second  line  above  are  also  FIX  and  optional,  but  they  set  garbage-collection 
parameters  permanently,  as  follows: 

mm:  as  for  GC 

pid:  number  of  slots  for  LVAls  added  when  the  spate  for  top-level  LVAls  is  expanded  (initially 
641 

numliei  of  slots  for  GVAls  added  when  the  global  vector  is  grown  (initially  64) 

pt > P-  nuntlier  of  slots  for  TYPls  added  when  tlie  TYPE  vector  is  grown  (initially  32) 

irrp:  number  of  words  of  iuiuiovable  garbage-collected  storage  added  when  it  is  expanded 
(initially  1024) 

pur:  number  of  ssoids  reserved  for  pure  compiled  programs,  if  possible  (initially  0) 

dp'.tk:  most  desirable  sue  for  the  internal  stack,  to  prevent  repeated  shrinking  and  GROWing 
(initially  512) 

dst*:  most  desirable  site  for  the  contiol  stack  (initially  40%) 

BLOAT  returns  the  actual  number  of  words  of  free  movable  garbage-collected  storage  available  when 
it  is  done. 
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22.7.  BIOAI-STAT 

BLOAT -ST  AT  can  lie  used  with  BIOAT  to  "tune*  the  garbage  collector  to  particular  program 
requirements. 

< HI  OAT - S TAT  length- 2 'xivector  > 

fills  the  u\r,t iv  with  infonnalion  about  the  state  of  storage  of  MDL.  The  argument  should  be  a 
UVECTOR  of  length  27  ami  UTYPE  FIX.  If  8L0AT-STAT  does  not  get  an  argument,  it  will  provide  its 
own  UVrCTOR.  I he  information  returned  is  as  follows:  the  first  8-elements -indicate  the  number  of 
garbage  collections  that  are  attrihutahle  to  certain  causes,  and  the  other  19  give  information  about 
certain  airas  of  storage  In  detail: 

1.  number  of  gaihage  collections  caused  by  exhaustion  of  movable  garbage-collected  storage 

2.  ditto  by  overflow  of  contiol  stack(s) 

3.  ditto  by  oveiflow  of  top-level-LVAL  section  of  control  stack(s) 

4.  ditto  by  overflow  of  global  vector 

5.  ditto  by  overflow  of  TYPE  vector 

6.  ditto  by  exhaustion  of  immovable  garbage-collected  storage 

7.  ditto  by  overflow  of  internal  stack 

8.  ditto  by  overflow  of  both  stacks  at  the  same  time  (rare) 

9.  number  of  words  of  movable  storage 

10.  number  of  words  of  movable  storage  used  since  last  BLOAT-STAT 

11.  i’',.:\immn  number  of  wmds  of  movable  storage  ever  existing 

12.  number  of  words  of  movable  storage  used  since  MDL  began  running 

13.  maximum  sj;e  of  control  stack 

14.  number  of  words  on  control  stack  in  use 

15.  maximum  si/e  of  contiol  stark(sl  ever  reached 

16.  number  of  slots  for  top-level  IVALs 

17.  number  of  top-level  l VAI  s existing 

18.  number  of  slots  for  GVALs  in  global  vector 

19.  number  of  GVALs  existing 

20.  number  of  slots  for  IYPI  s in  TYPE  vector 

21.  number  of  TYPI  s existing 

22.  number  of  words  of  immovable  garbage-collected  storage 

23.  number  of  words  of  immovable  storage  unused 

24.  sire  of  largest  unused  contiguous  immovable-storage  block 

25.  number  of  words  on  internal  stack 

26.  number  of  words  on  internal  stack  in  use 

27.  maximum  sire  of  internal  stack  ever  reached 
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22.8.  GC-HON 

<GC-MON  ptcd> 

("garbage-collector  monitor")  determines  whether  or  not  the  interpreter  will  hereafter  print 
information  on  the  terminal  when  a garbage  collection  starts  and  finishes,  according  to  whether  or 
not  its  argument  is  true  It  returns  the  previous  state.  Calling  it  with  no  argument  returns  the 
current  stale.  The  initial  state  is  false. 

When  typing  is  enabled,  the  "copying"  garbage  collector  prints,  when  it  starts: 

GIN  reason  subr-that-caused.atom 
and.  when  it  finishes: 

GOU I sec  ends  - needed 

The  "mark-sweep"  garbage  collector  prints  MSGIN  and  MSGOUT  instead  of  GIN  and  GOUT. 


22.9.  Related  Subroutines 

► 

Two  SURRs.  described  next,  use  oniy  part  of  the  garbage-collector  algorithm,  in  order  to  find  all 
pointers  to  an  object.  GC-IHiMP  and  GC-READ,  as  their  names  imply,  also  use  part  in  order  to 
translate  between  MDL  objects  and  binary  representations  thereof. 

22.9.1.  SUBSTITUTE 

<SUBSTI1UTE  new:  try  old  tuny) 

returns  o’j.  after  causing  a miniature  garbage  collection  to  occur,  during  which  all  references  to  old 
are  changed  so  as  to  iefer  to  new.  Neither  argument  can  be  of  PRIMTYPE  STRING  or  BYTES  or  LOCO 
or  live  on  the  control  stack,  unless  both  arc  of  the  same  PRIMTYPE.  One  TYPE  name  cannot  be 
substituted  for  another.  One  of  the  few  legitimate  uses  for  it  is  to  substitute  the  "right"  ATOM  for 
the  "wrong"  one.  after  ORl  ISTs  have  been  in  the  wrong  state.  This  is  more  or  less  the  way  ATOMs  are 
impurified.  It  is  also  useful  for  unlinking  RSUBRs.  SUBSTITUTE  returns  old  as  a favor:  unless  you 
hang  onto  old  a t that  point,  it  will  be  garbage. 


22.9.2.  PURIFY 

< PUR  IF  Y any- 1 ...  any  -N> 


- 
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returns  its  l.ist  argument,  after  causing  a miniature  garbage  collection  that  results  in  all  the 
arguments  becoming  pure  and  sharablc.  and  ignored  afterward  by  the  garbage  collector.  No 
argument  can  live  on  the  control  stack  or  be  of  PRIMTYPE  PROCESS  or  LOCO  or  ASOC.  Sharing 
between  nperaling-systrin  processes  actually  occurs  after  a SAVE,  if  and  when  the  SAVE  file  is 
RESTOREd. 
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Chapter  23.  MDL  as  a System  Process 


This  chapter  treats  MDL  considered  as  executing  in  an  operating-system  process,  and  interactions 
between  MDL  and  other  operating-system  processes.  See  also  section  21.8.13. 


23.1.  T IMF 

TIME  takes  any  nuniher  of  arguments,  which  are  evaluated  but  ignored,  and  returns  a FLOAT  giving 
the  number  of  seconds  of  CPU  time  the  MDL  process  has  used  so  far.  TIME  is  often  used  in 
machine-level  debugging  to  examine  the  values  of  its  arguments,  by  having  MDL’s  superior  process 
(say.  DDT)  plant  a breakpoint  in  the  code  for  TIME. 


23  2.  Names 


<UNAME> 

returns  a STRING  which  is  the  "user  name"  of  MDL’s  process.  This  is  the  "uname"  process-control 
variable  in  t he  ITS  version  and  the  logged-in  directory  in  the  Tenex  and  Tops-20  versions. 

<Xl)NAME> 

returns  a STRING  which  is  the  "intended  user  name"  of  MDL’s  process.  This  is  the  "xuname"  process- 
control  variable  in  the  ITS  version  and  identical  to  <UNAME>  in  the  Tenex  and  Tops-20  versions. 

< JNAME) 

returns  a STRING  which  is  the  "job  name"  of  MDL's  process.  This  is  the  "jname"  process-control 
variable  in  the  ITS  version  and  the  SETNM  name  in  the  Tenex  and  Tops-20  versions.  The  characters 
belong  to  the  "sixhit"  or  "printing"  subset  of  ASCII,  namely  those  between  <ASCII  *40*>  and 
<A5CII  * 1 37* > inclusive. 

<X JNAME > 
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returns  a SIRING  wliicli  is  the  "intended  job  name"  of  MDL's  process.  This  is  the  "xjiume"  process- 
control  variable  in  the  ITS  version  and  identical  to  <JNAME>  in  the  Tenex  and  Tops-20  versions. 


23.3.  Exits 

< LOGOUT) 

attempts  to  log  out  the  process  in  which  it  is  executed.  It  will  succeed  only  if  the  MDL  is  the  top- 
level  process,  that  is.  it  is  running  disowned  or  as  a daemon.  If  it  succeeds,  it  of  course  never 
returns.  If  it  does  not,  it  returns  IFALSE  (). 

<QU11 > 

causes  NIDI,  to  stop  running,  in  an  orderly  manner.  In  the  ITS  version,  it  is  equivalent  to  a 
.L0G0U1  1 , instruction  In  the  Tenex  and  Tops-20  versions,  it  is  equivalent  to  a control-C  signal, 
and  control  passes  to  the  superior  process. 

<VAI.RET  string- or  fix) 

("value  return")  seldom  returns.  It  passes  control  back  up  the  process  tree  to  the  superior  of  MDL, 
passing  its  argument  as  a message  to  that  superior.  If  it  does  return,  the  value  is  #FALSE  ().  If  the 
argument  is  a STRING,  it  is  passed  to  the  superior  as  commands  to  be  executed,  via  .VALUE  in  the 
ITS  version  and  RSCAN  in  the  Tops-20  version.  If  the  argument  is  a FIX,  it  is  passed  to  the  superior 
as  the  "effective  address"  of  a .BREAK  16,  instruction  in  the  ITS  version  and  ignored  in  other 
versions. 
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23.4.  Inter-process  Communication 

All  of  the  SUBRs  in  this  section  are  available  only  in  the  ITS  version. 

The  I PC  ("inter-process  communication ")  device  is  treated  as  an  I/O  device  by  ITS  but  not 
explicitly  so  by  MDI.:  that  is,  it  is  never  OPENcd.  It  allows  MDL  to  communicate  with  other  ITS 
processes  by  means  of  sending  and  receiving  messages.  A process  identifies  itself  as  sender  or 
recipient  of  a message  with  an  ordered  pair  of  "sixbit"  STRINGS,  which  are  often  but  not  always 
<UNAME>  and  < JNAMf  >.  A message  has  a "body"  and  a "type". 

23.4.1.  -END  and  SEND-WAIT 

<SEND  other  n I other  n2  body  type  my  name  l my  name  2 > 
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<SEND-WAII  othernl  other  n2  body  type  my  name  1 mynsme2> 

both  send  an  l PC  message  In  any  process  llial  is  listening  for  it  as  othernl  other n2.  body  must  be 
either  a SIRING,  or  a UVICIOR  of  objects  of  PRIMIYPf  WORD,  type  is  an  optional  FIX,  0 by  default, 
which  is  part  of  the  information  the  other  guy  receives.  The  last  two  arguments  are  from  whom  the 
message  is  to  lie  sent.  These  are  optional,  and  <l)NAME>  and  <JNAME>  respectively  are  used  by 
default.  SI  NO  returns  a I AISE  if  no  one  is  listening,  while  SEND-WAIT  hangs  until  someone  wants  it. 
Both  return  I if  someone  accepts  the  message. 


23.4  2 The  "IPC"  Interrupt 

When  yout  MIX  process  receives  an  IPC  message.  "IPC"  occurs  (chapter  21).  A handler  is  called 
svith  either  four  m si\  arguments  gleaned  from  the  received  message,  body,  type,  othernl,  and 
other  n2  are  always  supplied.  myn<tmel  and  my  name  2 are  supplied  only  if  they  are  not  this  process's 
<UNAME  > and  < JNAMI  >. 

There  is  a built-in  HANOI [ R for  the  "IPC"  interrupt,  with  a handler  named  IPC-HANDLER  and  0 in  the 
PROCESS  slot.  The  handler  prints  nut  on  the  terminal  the  body,  whom  it  is  from,  the  type  if  not  0, 
and  svhnm  it  is  to  if  not  < UN  AMI  > <JNAME>.  If  the  type  is  1 and  the  body  is  a STRING,  then,  after 
the  message  information  is  printed  out.  the  SIRING  is  PARSEd  and  EVALuated. 


23.4.3.  1 PC-01 1 

<IPC-Off  > stops  all  listening  on  tiie  IPC  device. 


23.4.4.  1 PC  -ON 

< I PC -ON  mynomel  mynah)c2'> 

causes  listening  on  the  IPC  device  as  mynmel  mynnme2.  If  no  arguments  are  provided,  listening  is 
on  <UNAME>  <dNAHE>.  When  a message  arrives,  "IPC"  occurs. 

MDL  is  initially  listening  as  <UNAME>  <JNAME>  with  the  built-in  HANDLER  set  up  on  the  "IPC" 
interrupt  with  a priority  of  1. 


23.4.5.  DEMSIG 

< OEMS  I G djcmonistnns  > 

signals  to  ITS  (directly,  not  via  Hie  IPC  device)  that  the  daemon  named  by  its  argument  should  run 
now.  It  returns  T if  the  daemon  exists,  IFALSE  ()  otherwise. 
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Chapter  24.  Efficiency  and  Tastefulness 


24.1.  F.fficirncy 

Actually,  you  make  MDI.  programs  efficient  by  thinking  hard  about  what  they  really  make  the 
interpreter  do.  ami  making  them  do  less.  Some  guidelines,  in  order  of  decreasing  expense: 

(I)  Free  storage  is  expensive. 

(21  Calling  functions  is  expensive. 

(3)  PROG  and  REPEAT  are  expensive,  except  when  compiled. 

Explanation: 

(1)  Unnecessary  use  of  free  storage  (creating  needless  LISTs,  VECTORS.  UVECTORs.  etc.)  will  cause  the 
garbage  collector  to  run  more  often.  This  is  expensive!  A fairly  large  MDL  (for  example,  60  000  36- 
bit  words!  can  lake  ten  seconds  of  PDP-10  CPU  time  for  a garbage  collection.  Be  especially  wary  of 
constructions  like  (0).  Every  time  that  is  evaluated,  it  creates  a new  one-element  LIST;  it  is  too 
easy  to  write  such  things  when  they  aren't  really  necessary.  Unless  you  are  doing  PUTs  or  PUTRESTs 
on  it.  use  ' ( 0 ) instead. 

(2)  Sad.  but  true.  Also  generally  ignored.  If  you  call  a function  only  once,  or  if  it  is  short  (less  than 
one  line),  you  are  much  better  off  in  speed  if  you  substitute  its  body  in  by  hand.  On  the  other 
band,  you  may  be  much  worse  off  in  modularity.  There  are  techniques  for  combining  several 
FUNCTIONS  into  one  RSUBR  (with  RSUBR-ENTRYs),  either  during  or  after  compilation,  and  for 
changing  FUNCTIONS  into  MACROS. 

(3)  PROG  is  almost  never  necessary,  given  (a)  "AUX"  in  FUNCTIONS!  (b)  the  fact  that  FUNCTIONS  can 
contain  any  number  of  TORMs:  (c)  the  fact  that  C0ND  clauses  can  contain  any  number  of  FORMs:  and 
(d)  the  fact  that  new  variables  can  be  generated  and  initialized  by  REPEAT.  However.  PROG  may  be 
useful  when  an  error  occurs,  to  establish  bindings  needed  for  cleaning  things  up  or  interacting  with 
a human. 

The  use  of  PROG  may  be  sensible  when  the  normal  flow  of  control  can  be  cut  short  by  unusual 
conditions,  so  that  the  program  svants  to  RETURN  before  reaching  the  end  of  the  PROG.  Of  course. 


1 
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nested  CONOs  can  accomplish  the  same  end,  but  deep  nesting  may  tend  to  make  the  program 
unreadable.  For  example: 

< PROG  ( TCMP) 

COR  <SFT  ICMP  <0K-F0R-STEP-1?>> 

CRETURN  . TEMP>> 

CSTEP- 1 > 

COR  CSET  TEMP  C0K-F0R-STEP-2?>> 

CRETURN  . TEMP>> 

<SlEP-2>> 

could  instead  be  written 

CCONO  (< OK -FOR -STEP-1?) 

CSTEP-l) 

CCOND  (< OK -FOR -STEP-2?) 

CSTEP-2>)>)> 

By  the  way.  RCPEAT  is  faster  than  GO  in  a PROG.  The  CGO  x>  FORM  has  to  be  separately  interpreted, 
right?  In  fact,  if  you  organize  things  properly  you  very  seldom  need  a GO;  using  GO  is  generally 
considered  "had  style",  but  in  some  cases  it’s  needed.  Very  few. 

In  many  cases,  a RCPEAT  can  be  replaced  with  a NAPF  or  HAPR,  or  an  HIST,  IVECTOR,  etc.  of  the 
form 


C HIST  .N  'CSET  X <♦  .X  1» 

which  generates  an  N-element  LIST  of  successive  numbers  staging  at  X+l. 

Whether  a program  is  interpreted  or  compiled,  the  first  two  considerations  mentioned  above  hold: 
garbage  collection  and  function  calling  remain  expensive.  Garbage  collection  is,  clearly,  exactly  the 
same.  Function  calling  is  relatively  more  expensive.  However,  the  compiler  careth  not  whether  you 
use  REPEAT,  GO,  PROG,  IL  1ST , MAPF,  or  whatnot:  it  all  gets  compiled  into  practically  the  same 
thing.  However,  the  REPEAT  or  PROG  will  be  slower  if  it  has  an  ACTIVATION  that  is  SPECIAL  or  used 
other  than  by  RETURN  or  AGAIN. 


24.1.1.  Example 

There  follows  an  example  of  a FUNCTION  that  does  many  things  wrong.  It  is  accompanied  by 
commentary,  and  two  better  versions  of  the  same  thing.  (This  function  actually  occurred  in 
practice.  Needless  to  say,  names  are  withheld  to  protect  the  guilty.) 

Blunt  comment:  this  is  terrible.  Its  purpose  is  to  output  the  characters  needed  by  a graphics 
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terminal  to  draw  lines  connecting  a set  of  points.  The  points  are  specified  by  two  input  lists:  X 
values  and  Y values.  The  output  channel  is  the  third  argument.  The  actual  characters  for  each  line 
are  returned  in  a I 1ST  by  the  function  TRANS. 


<DEF INE  PLOTVDSK  (X  Y CHN  "AUX"  L LIST) 

<C0HD  ( < NO T < = =7  <SET  L <LENGTH  .X»<LENGTH  .Y>  » 
<FRR0R  "IENGTHS  NOT  EQUAL’))) 

<SE T LIST  ( 29 ) > 

<REPEAT  ((N  1)) 

<SET  LIST  ( ! .LIST  !< TRANS  <.N  .X>  <.N  .Y»)> 
<fOND  ( <G?  <SF.T  N <♦  .N  1»  .LXRETURN  .N>)>  > 
<REPEAT  ((N  1)  (LI  <LENGTM  .LIST))) 

< PRINC  < ASCI I < .N  .LIST))  .CHN) 

<COND  (<G?  <SET  N <♦  .N  1»  .LI) 

<RETURN  "DONE")))  >> 


Comments: 

(1)  LIST  is  only  temporarily  necessary.  It  is  just  created  and  then  thrown  away. 

(2)  Worse,  the  construct  ( ! .LIST  KTRANS  . . .))  copies  the  previous  elements  of  LIST  every  time  it 
is  executed! 

(3)  Indexing  down  the  elements  of  LIST  as  in  <.N  .LIST)  takes  a long  time,  if  the  LIST  is  long.  <3 
. ..)  or  <4  ...)  is  not  worth  worrying  about,  but  <10  ...)  is.  and  <100  ...)  takes  quite  a while. 
Even  if  the  indexing  were  not  phased  out,  the  compiler  would  be  happier  with  <NTH  .LIST  ,N>. 

(4)  The  variable  CIIH  is  unnecessary  if  OUTCHAN  is  bound  to  the  argument  CHANNEL. 

(5)  It  is  tasteful  to  call  ERROR  in  the  same  way  that  F/SUBRs  do.  This  includes  using  an  ATOM  from 
the  ERRORS  OBLIST  (if  one  is  appropriate)  to  tell  what  is  wrong,  and  it  includes  identifying  yourself. 

So,  do  it  this  way: 
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enrriNi  ihoivdsk  (x  y outciian) 

"MCI  ((OUTCIIAN)  < SPECIAL  CHANNEL)) 

<C0Nn  ( < NO  I ( = = ? < LENGTH  .X>  <LENGTH  .Y»> 

<L RROR  VECTOR-LENGTHS-DIFFER! -ERRORS  PLOTVDSK))) 
< PR  INC  < ASC 1 1 ?9>> 

<RFPf  AT  () 

<C0N0  (<EMPTY?  .X>  (RETURN  "DONE"))) 

(REPEAT  ((OL  (TRANS  (1  .X)  (1  .Y»)) 

(PRINC  (ASCII  (1  ,OL)>> 

(COND  ((EMPTY?  (SET  OL  (REST  .OL»> 
(RETURN>)» 

(SC T X (REST  .X» 

(SET  Y (REST  .Y>>>> 


Of  course,  if  you  know  Imw  long  is  I he  LIST  Dial  TRANS  returns,  you  can  avoid  using  the  inner 
REPEAT  loop  and  have  explicit  PRINCs  for  each  element.  This  can  be  done  even  better  by  using 
MAPF , as  in  the  next  version,  which  does  exactly  the  same  thing  as  the  previous  one,  but  uses  MAPF 
to  do  the  KESTiug  and  the  end  conditional: 

(OCT  INC  PIOTVDSK  (X  Y OUTCIIAN) 

"ItlCl  ((OUTCIIAN)  (SPECIAL  CHANNEL)) 

(CONI)  ( < NO  I ( = = ? (LENGTH  .X)  (LENGTH  .Y») 

(ERROR  VECTOR-LENGTHS-DIFFER! -ERRORS  PLOTVDSK))) 

(PRINC  (ASCII  ?9)> 

(MAPF  (> 

<*F UNCI  ION  ( ( XE  YE) 

(MAPF  (>  IFUNCTION  ((T)  (PRINC  (ASCII  .T»)  (TRANS  .XE  . YE») 

,X 
. Y> 

"DONE") 


24-2.  Great i nc  a LIST  in  Forward  Order 

If  you  must  create  the  elements  of  a LIST  in  sequence  from  first  to  last,  you  can  avoid  copying 
earlier  ones  when  adding  a later  one  to  the  end.  One  way  is  to  u e MAPF  or  MAPR  with  a first 
argument  of  , L 1ST  : the  elements  are  put  on  the  control  stack  rather  than  in  free  storage,  until  the 
final  call  to  LIST.  If  you  know  how  many  elements  there  will  be.  you  can  put  them  on  the  control 
stack  yourself,  in  a TUIME  built  for  that  purpose.  Another  way  is  used  when  REPEAT  is  necessary: 
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(REPEAT  ((FIRS!  (I))  (LAST  .FIRST)  ...) 

♦DECL  ((VALUE  FIRST  LAST)  LIST  ...) 

<Sf  T LAST  <RCST  <PUTREST  .LAST  ( ,NEW)>» 

<RL  TORN  <REST  .FIRST)) 

. . .) 

Herr.  .IASI  always  points  to  the  current  last  element  of  the  LIST.  Because  of  the  order  of 
evaluation,  the  <SET  l AST  . ..)  could  also  be  written  <PUTREST  .LAST  <SET  LAST  (.NEW)>>. 


24.3.  Read-only  Free  Variables 

If  a Function  uses  the  value  of  a free  variable  (<GVAL  unmanifest:atom>  or  <LVAL  special :atom>) 
without  changing  it.  the  compiled  version  may  he  more  efficient  if  the  value  is  assigned  to  a 
dummy  UMSPrciAL  ATOM  in  the  Function's  "AUX"  list.  This  is  true  because  an  UNSPECIAL  ATOM  gets 
compiled  into  a slot  on  the  control  stack,  which  is  accessible  very  quickly.  The  trade-off  is 
probably  worthwhile  if  a is  referenced  more  than  once,  or  if  an  unmanifest  is  referenced  more 

than  twice.  Example: 

COiriNl  MAP-LOOMIP  (THINGS  "AUX"  (OB  .DATA-BASE)) 

•OTCI  ( ( VAl  LIE ) VECTOR  (THINGS  OB)  <UNSPECIAL  <PRIMTYPE  LIST))) 

(MAPF  .VECTOR  (FUNCTION  (T)  (MEMO  .T  .DB>>  .THINGS)) 


24.4.  Global  and  local  Values 

In  the  interpreter  the  sequence  .X  .X  ,X  .X  is  slower  than  .X  ,X  .X  .X  because  of  interference 
between  the  GVAI  and  l VAl  mechanisms  (appendix  I).  Thus  it  is  not  good  to  use  both  the  GVAL  and 
LVAL  of  the  same  ATOM  frequently,  unless  references  to  the  LVAL  will  be  compiled  away  (made  into 
control  stack  references). 


24.5.  Making  Offsets  for  Arrays 

It  is  often  the  case  that  you  want  to  attach  some  meaning  to  each  element  of  an  array  and  refer  to 
an  element  independently  of  other  elements.  Firstly,  it  is  a good  idea  to  use  names  (ATOMs)  rather 
than  integers  (TlXes  or  even  orFSETs)  for  offsets  into  the  array,  to  make  future  changes  easier. 
Secondly,  it  is  a good  idea  to  use  the  GVALs  of  the  name  ATOMs  to  remember  the  actual  FIXes,  so  that 
the  ATOMs  can  be  MANIFEST  for  the  compiler's  benefit.  Thirdly,  to  establish  the  GVALs.  both  the 
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interpreter  and  (lie  compiler  will  tie  happier  with  <SETG  name  offsef>  rather  than  <DEF1NE  name 
(•TUPLE"  T)  <on<#t  !.!>>. 


24.6.  Tables 

There  are  'ever  a I ways  in  IWDl.  lo  store  a table,  (hat  is,  a collection  of  (names  and!  values  that  will 
he  searched.  Unsuipiisingly,  choosing  the  best  way  is  often  dictated  by  the  site  of  the  table  and/or 
the  natuic  of  the  (names  and)  values. 

For  a small  table,  the  names  and  values  can  be  put  in  (separate)  structures  - the  choice  of  LIST  or 
array  being  detei mined  by  volatility  and  limilability  -•  which  are  searched  using  MLMQ  or  MEMBER. 
This  method  is  very  space  efficient.  If  the  table  gets  larger,  and  if  the  elements  are  completely 
orderable.  a (unifonu)  s ector  can  be  used,  kept  sorted,  and  searched  with  a binary  search. 

For  a large  table,  where  reasonably  efficient  searches  are  required,  a hashing  scheme  is  probably 
best.  Two  methods  aie  available  in  MDL:  associations  and  OBLISTs. 

In  the  first  method.  I'll  I PROP  and  GfTPROP  are  used,  which  are  very  fast.  The  number  of  hashing 
buckets  is  fixed  Duplicates  are  eliminated  by  testing.  If  it  is  necessary  to  use  *?  testing,  or  to 
find  all  the  entries  m the  table,  yon  can  duplicate  the  table  in  a LIST  or  array,  to  be  used  only  for 
those  purposes. 

In  the  second  method.  INSIRI  and  100MIP  on  a specially-built  OBLIST  are  used.  (If  the  names  are 
not  STRINGS,  they  can  he  converted  to  SIRINGs  using  II  PARSE.  which  takes  a little  time.)  The 
number  of  hashing  buckets  can  be  chosen  for  best  efficiency.  Duplicates  are  eliminated  by  »T 
testing.  MAI’F/R  can  be  used  to  find  all  the  entries  in  the  table. 


24.7.  Nesting 


The  beauty  of  ilreph  nested  contiol  structures  in  a single  FUNCTION  is  definitely  in  the  eye  of  the 
beholder.  (PPR1N1,  a pre-loaded  RSUBR,  finds  them  trying.  However,  the  compiler  often  produce* 
better  code  fiom  them. I If  you  don’t  like  excessive  nesting,  then  you  will  agree  that 

<SF  T X . . . > 

<C0NP  (<0?  .X>  ...)  ...> 

looks  better  than 

<C0Nl>  (<0?  <SL T X ...»  ...)  ...> 


and  that 
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<RCPEAT  ... 

<C0ND  ... 

( ...  <RETURN  ...>)> 

. ..> 

looks  better  than 

<RIPEAT  ... 

<CONP  ... 

(...  < RETURN  ...>) 

(ELSE  ...)> 

. . .> 

You  can  see  the  nature  of  the  choices.  Nesting  is  still  and  all  better  than  GO. 
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Appendix  1.  A Look  Inside 


This  appendix  tells  ahoui  tlir  mapping  between  MDL  objects  and  PDP-IO  storage  *•  in  other  words, 
the  way  things  look  "on  the  inside"  None  of  this  information  is  essential  to  knowing  how  to 
program  in  MDl . Imt  it  does  give  some  reasons  for  capabilities  and  restrictions  that  otherwise  you 
have  to  incmoiuc  The  notation  and  terminology  get  a little  awkward  in  this  discussion,  because  we 
are  m a twilight  /one  between  the  worlds  of  MDl  objects  and  of  bit  patterns.  In  general  the  words 
and  phrases  appealing  m diagrams  refer  to  bit  patterns  not  MDL  objects.  A lower-case  word  (like 
“tuple")  rcfcis  to  the  stoiagc  occupied  by  an  object  of  the  corresponding  PRINTYPE  (like  TUPLE). 

First  some  let minnlngs  needs  discussion.  The  sine  qua  non  of  any  MDL  object  is  a pair  of  56-bit 
computer  wouls  In  general,  lists  consist  of  pairs  chained  together  by  pointers  (addresses),  and 
vectors  consist  of  mntiguous  blocks  of  pairs.  s = 7 essentially  tests  two  pairs  to  see  whether  they 
contain  the  same  bit  patterns. 

The  fiist  ilowei-addiessed)  wmd  of  a pair  is  called  the  TYPE  word,  because  it  contains  a numeric 
TYPl  code  that  repiesents  the  object's  TYPE.  The  second  (higher-addressed)  word  of  a pair  is  called 
the  value  word,  haaiise  it  contains  (part  of  or  the  beginning  of)  the  "data  part"  of  the  object.  The 
TYPl  woid  (and  sometimes  the  value  word)  is  considered  to  be  made  of  a left  half  and  a right  half. 
We  will  pictuie  a pair  like  this: 


I 1 YPl 


I value  | 


where  a vertical  bar  in  the  middle  of  a word  means  the  word's  halves  are  used  independently.  You 
can  see  that  the  1YPI  code  is  confined  to  the  left  half  of  the  TYPE  word.  (Half-)words  are  sometimes 
subdivided  into  fields  appiopriate  for  the  soutext:  fields  are  also  pictured  as  separated  by  vertical 
bars.  The  tight  half  of  the  1YPF  word  is  used  for  different  purposes  depending  on  the  TYPE  of  the 
object  and  actual  location  of  the  value. 

Actually  the  IS  bit  I YPl  field  is  further  decoded  The  high-order  (leftmost)  bit  is  the  mark  bit.  used 
exclusively  hv  the  garbage  collector  when  it  runs.  The  next  two  bits  are  monitor  bits,  used  to  cause 
"REAP"  and  "WRllt  " interrupts  on  lead  and  write  references  to  the  pair.  The  next  bit  is  used  to 
differentiate  between  list  elements  and  vector  dope  svords.  The  next  bit  is  unused  but  could  be  used 
in  the  f unite  for  an  “execute"  monitor.  The  remaining  IS  bits  specify  the  actual  TYPE  code.  What 
CMTYPE  does  is  to  copy  the  pair  and  put  a new  TYPE  code  in  the  new  pair. 

Each  data  TYPl  (piedefined  and  NlwlYPls)  must  belong  to  one  of  about  25  "storage  allocation 
classes"  (roughly  corresponding  to  MDL  PRIMTYPEs).  These  classes  are  characteritrd  primarily  by 
the  manner  m which  the  garbage  collector  treats  them.  Some  of  these  classes  will  now  be  described. 
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"Jne  Word” 

This  class  includes  all  data  that  are  not  pointers  to  some  kind  of  structure.  All  external  (program- 
available)  TYPES  in  this  class  are  of  PRIMTYPE  WORD.  Example: 


FIX  | 0 


105 


"Two  Word" 

The  members  of  this  class  are  all  18-bit  pointers  to  list  elements.  All  external  TYPEs  in  this  class  are 
of  PRIMTYPE  LIST.  Example: 


LIST  | 0 


I 0 l pointer  | 


where  pointer  is  a pointer  to  the  first  list  element.  If  there  are  no  elements,  pointer  is  aero;  thus 
empty  objects  of  PRIMTYPE  LIST  are  ==?  if  their  TYPES  are  the  same. 


"Two  N Word" 

Members  or  this  rlass  arr  all  "counting  pointers"  to  blocks  of  two-word  pairs.  The  right  half  of  a 
counting  pointer  is  an  address,  and  the  left  half  is  the  negative  of  the  number  of  36-bit  words  in  the 
block.  (This  format  is  tailored  to  the  PDP-10  AOBJN  instruction.)  The  number  of  pairs  in  the  block 
(LENGTH)  is  half  that  number,  since  each  pair  is  two  words.  All  external  TYPEs  in  this  class  are  of 
PRIMTYPE  VECTOR.  Fxamplr: 


I VF C T OR  | 0 


I -2* length  | pointer  | 


where  length  is  the  LENG1H  of  the  VECTOR  and  pointer  is  the  location  of  the  start  (the  element 
selected  by  an  NTH  argument  of  1)  of  the  VECTOR. 
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"N  Word” 

This  class  is  the  same  as  the  previous  one.  except  that  the  block  contains  objects  all  of  the  same 
TYPE  without  individual  TYPE  'voids.  I he  TYPE  code  for  all  the  elements  is  in  vector  dope  words, 
which  are  at  addresses  just  larger  than  the  block  itself.  Thus,  any  object  that  carries  information  in 
its  TYPE  word  cannot  go  in  the  block:  PRIMTYPEs  STRING,  BYTES,  TUPLE  (and  the  corresponding 
locatives  LOCS,  I0CB,  LOCA).  FRAME,  and  LOCO.  All  external  TYPEs  in  this  class  are  of  PRIMTYPE 
UVECTOR.  Example: 


I UVEC10R  | 0 


I -length  | pointer  | 


where  length  is  the  l ENGTII  of  the  UVECTOR  and  pointer  points  to  the  beginning  of  the  UVECTOR. 


"Byte  String”  and  "Character  String" 

These  two  classes  air  almost  identical.  Byte  strings  are  byte  pointers  to  strings  of  arbitrary-size 
bytes.  PRIM1YPE  HYlfS  is  the  only  member  of  this  class.  Character  strings  are  byte  pointers  to 
strings  of  ASCII  characters.  PRIMTYPE  STRING  is  the  only  member  of  this  class.  Both  of  these 
classes  consist  of  a length  and  a PDP-IO  byte  pointer.  In  the  case  of  character  strings,  the  byte-size 
field  in  the  byte  pointer  is  always  seven  bits  per  byte  (hence  five  bytes  per  word).  Example: 


STRING  | length  | 


I byte-pointer  | 


where  length  is  the  LENGTH  of  the  STRING  (in  bytes)  and  byte-pointer  points  to  a byte  just  before 
the  beginning  of  the  siring  (an  ILOB  instruction  is  needed  to  get  the  first  byte).  A newly-created 
STRING  always  has  *010700*  in  the  left  half  of  byte-pointer.  Unless  the  string  was  created  by 
SPNAME  , byto-pointrr  points  to  a uvector,  where  the  elements  (characters)  of  the  STRING  are  stored, 
packed  together  five  to  a word. 


If*  H 

Frame 

This  class  gives  the  user  program  a handle  on  its  control  and  variable-reference  structures.  All 
external  TYPI  s in  this  class  arc  of  PRIMTYPE  FRAME.  Three  numbers  are  needed  to  designate  a frame: 
a unique  18-hit  identifying  number,  a pointer  to  the  frame’s  storage  on  a control  stack,  and  a 
pointer  to  the  PROCESS  associated  with  the  frame.  Example: 


Appendix  1 


214 


The  MDL  Programming  Language 


fRAHE  I PROCESS-pointer  | 


unique- id  | frame-pointer  | 


where  PROC TSS-pointer  points  to  the  dope  words  of  a PROCESS  vector,  and  unique-id  is  used  for 

validating  (testing  I tGAl  ’)  the  frame-pointer,  which  points  to  a frame  for  some  Subroutine  call 
on  the  control  slack. 


"Tuple" 

A tuple  pointer  is  a counting  pointer  to  a vector  on  the  control  stack.  It  may  be  a pointer  to  the 
arguments  to  a Subroutine  or  a pointer  generated  by  the  "TUPLE"  declaration  in  a FUNCTION.  Like 
objects  in  the  previous  class,  these  objects  contain  a unique  identifying  number  used  for  validation. 
PRIMTYPE  TUPLE  is  the  only  member  of  this  class.  Example: 


I TIIPIE  | uniquo-id  | 


I -2* length  | pointer 


Other  Storage  Classes 

The  rest  of  the  storage  classes  include  strictly  internal  TYPEs  and  pointers  to  special  kinds  of  lists 
and  vectors  like  locatives.  AlOMs  and  ASOCs.  A pair  for  any  LOCATIVE  except  a LOCD  looks  like  a 
pair  for  the  corresponding  structure,  except  of  course  that  the  TYPE  is  different.  A LOCO  pair  looks 
like  a tuple  pair  and  needs  a word  and  a half  for  its  value:  the  unique-id  refers  to  a binding  on  the 
control  stack  or  to  the  "global  stack"  if  zero  Thus  LOCDs  are  in  a sense  "stack  objects"  and  are  more 
restricted  than  other  locatives. 

An  OFF  SI  T is  stored  with  the  INOIX  in  the  right  half  of  the  value  word  and  the  Pattern  in  the  left 
half.  Since  the  Pattern  can  be  either  an  ATOM  or  a FORM,  the  left  half  actually  points  to  a pair, 
which  points  to  the  actual  Pattern.  The  Pattern  ANY  is  recognized  as  a special  case:  the  left-half 
porntcr  is  /cm.  and  no  pair  is  used  Thus,  if  you’re  making  the  production  version  of  your  program 
and  want  to  save  some  storage,  you  can  do  something  like  <SETG  F00  (PUT-DECL  ,FOO  ANY>>  for 
all  OFFSETS. 
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Basic  Data  Structures 


Lists 

List  elements  are  pairs  linked  together  by  the  right  halves  of  their  first  words.  The  list  is 
terminated  hy  a 7ero  in  the  right  half  of  the  last  pair.  For  example  the  LIST  (12  3)  would  look 
like  this: 


| LISI  | 0 | 


I 0 | >|  FIX  | >|  FIX  | >|  FIX  | 0 | 

I I I - - - - I I - - - - I 

111  |2|  | 3 | 


The  use  of  pointers  to  tie  togrther  elements  explains  why  new  elements  can  be  added  easily  to  a list, 
how  sharing  and  circularity  work.  etc.  The  links  go  in  only  one  direction  through  the  list,  which  is 
why  a list  cannot  be  BACKed  or  TOPped:  there's  no  way  to  find  the  RESTed  elements. 

Since  some  MDI.  values  re/piire  a word  and  a half  for  the  value  in  the  pair,  they  do  not  fit  directly 
into  list  elements.  This  problem  is  solved  by  having  "deferred  pointers".  Instead  of  putting  the 
datum  directly  into  the  list  element,  a pointer  to  another  pair  is  used  as  the  value  with  the  special 
internal  TYPE  DCFLR,  and  the  real  datum  is  put  in  the  deferred  pair.  For  example  the  LIST  (1 
"hello"  3)  would  look  like  this: 


| LIST  | 0 | 


I 0 | >|  FIX  | > | DEFER | >|  FIX  | 0 | 


1111  I 3 | 

I 


I STRING | 5|<- 

| ....  | 

Ibytc-pntrl 
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Vectors 


A vector  is  a block  of  contiguous  words.  More  than  one  pair  can  point  to  the  block,  possibly  at 
different  places  in  the  block:  this  is  how  sharing  occurs  among  vectors.  Pointers  that  are  different 
arise  from  REST  or  GROW/BACK  operations.  The  block  is  followed  by  two  "dope  words”,  at  addresses 
just  larger  than  the  largest  address  in  the  block.  Dope  words  have  the  following  format: 


/ / 

I I 

I I 


type  | 

grow 

length  | 

gc 

The  various  fields  have  the  following  meanings: 

typo  - The  fourth  bit  from  the  left  (the  "vector  bit",  40000  octal)  is  always  one,  to  distinguish  these 
vector  dope  words  from  a TYPE/value  pair. 

If  the  high-order  bit  is  zero,  then  the  vector  is  a UVECTOR,  and  the  remaining  bits  specify  the 
uniform  TYPE  of  the  elements.  CHUTYPE  just  puts  a new  TYPE  code  in  this  field.  Each  element 
is  limited  to  a one-word  value:  clearly  PRIMTYPE  STRINGS  and  BYTESes  and  stack  objects  can’t 
go  in  uniform  vectors. 

If  the  high-ord^r  hit  is  one  and  the  TYPE  bits  are  zero,  then  this  is  a regular  VECTOR. 

If  the  high-order  bit  is  one  and  the  TYPE  bits  are  not  all  zero,  then  this  is  either  an  ATOM,  a 
PROCESS , an  ASOC,  or  a TEMPLATE.  The  special  internal  format  of  these  objects  will  be 
described  a little  later  in  this  appendix. 

length  - The  high  order  bit  is  the  mark  bit,  used  by  the  garbage  collector.  The  rest  of  this  field 
specifies  the  number  of  words- in  the  block,  including  the  dope  words.  This  differs  from  the 
length  given  in  pairs  pointing  to  thi'  vector,  since  such  pairs  may  be  the  result  of  REST 
operations. 

grow  - This  is  actually  two  nine-bit  fields,  ;pecifying  cither  growth  or  shrinkage  at  both  the  high 
and  low  ends  of  the  vector.  The  fields  are  usually  set  only  when  a stack  must  be  grown  or 
shrunk. 

gc  --  This  is  used  by  the  garbage  collector  to  specify  where  this  vector  is  moving  during 
compaction. 

Examples  (numbers  in  octal):  the  VECTOR  [1  "bye"  3]  looks  like: 
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I VI C I OR  l 0 | 

I I 

I -6  | --- 


>1  FIX  | 


1 


SIRING  | 3 


l>y to  pointer 


FIX  | 


3 


<140000  | 0 


10  | 


The  UVIC10R  •(  -1  / -4!  ] looks  like: 


I UVICIOR  | 0 | 


I -3  I >|  -1 


-4  j 


I 40000*1 IX  | 0 | 


S I I 


Atoms 

Internally,  .itoms  .nr  special  vector-like  objects  An  atom  contains  a value  cell  (the  first  two  words 
of  the  block,  filled  in  whenever  the  global  or  local  value  of  the  A10M  Is  referenced  and  Is  not  already 
there),  an  OBLIS1  pointer,  and  a print  name  (PNAHt),  in  the  following  format: 


Appendix  I 


218 


The  MDL  Programming  Language 


I type  | bindid  | 

I poinier-to-value  | 

I pointer-to-OBLIST  I 

I print-name  | 

/ / 

/ / 

I (ASCII  with  NUl  padding  on  end)| 

I AIOM  | valid- type  | 

I - - I 

I length  | gc  | 


If  the  type  field  corresponds  to  TYPE  UNBOUND,  then  the  ATOM  is  locally  and  globally  unbound. 
(This  is  different  from  a pair,  where  the  same  TYPE  UNBOUND  is  used  to  mean  unassigned.)  If  it 
corresponds  to  TYPE  l OH  (an  internal  TYPE),  then  the  value  cell  points  either  to  the  global  stack,  if 
bindid  is  /eio.  01  to  a local  control  stack,  if  bindid  is  non-zero.  The  bindid  field  is  used  to  verify 
whether  the  local  value  pointed  to  by  the  value  cell  is  valid  in  the  current  environment.  The 
pointor-to-Olll  IS1  is  eiiher  a counting  pointer  to  an  oblist  (uvector),  a positive  offset  into  the 
"transfer  vector”  (for  pure  ATOMs).  or  zero,  meaning  that  this  ATOM  is  not  on  an  OBLIST.  The  valid- 
type  field  tells  whether  or  not  the  AIOM  represents  a TYPE  and  if  so  tie  code  for  that  TYPE;  grow 
values  are  never  needed  for  atoms. 


Associations 

Associations  are  also  special  vector-like  objects.  The  first  six  words  of  the  block  contain  TYPE/value 
pairs  for  the  ITEM,  INPICA10R  and  AVALUE  of  the  ASOC.  The  next  word  contains  forward  and 
backward  pointers  in  the  chain  for  that  bucket  of  the  association  hash  table.  The  last  word 
contains  forward  and  backward  pointers  in  the  chain  of  all  the  associations. 
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ITFM 


pair 


INDICATOR 


pair 


AVALUE 


pair 


bucket-chain  pointers 


association-chain  pointers 


ASOC  | 0 


12  octal  | gc 


PROCESSes 

A PROCESS  vector  looks  exactly  like  a vector  of  TYPE/value  pairs.  It  is  different  only  in  that  the 
garbage  collector  treats  it  differently  from  a normal  vector,  and  it  contains  extremely  volatile 
information  when  the  PROCESS  is  RUNNING. 


Templates 

In  a template,  the  number  in  the  type  field  (left  half  of  first  dope  word)  identifies  to  which  "storage 
allocation  class"  this  TEMPLATE  belongs,  and  it  is  used  to  find  PDP-IO  instructions  in  internal  tables 
(frozen  nvectors)  for  performing  LENGTH,  NTH,  and  PUT  operations  on  any  object  of  this  TYPE. 
The  programs  to  build  these  tables  are  not  part  of  the  interpreter,  but  the  interpreter  does  know  how 
to  use  them  properly.  The  compiler  can  put  these  instructions  directly  in  compiled  programs  if  a 
TEMPLATE  is  never  RESTed:  otherwise  it  must  let  the  interpreter  discover  the  appropriate  instruction. 
The  value  word  of  a template  pair  contains,  rot  a counting  pointer,  but  the  number  of  elements 
that  have  been  RES  led  off  in  the  left  half  and  a pointer  to  the  first  dope  word  in  the  right  half. 
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The  Control  Stack 

Accumulators  with  symbolic  names  Ad,  18.  and  IP  arc  all  pointers  into  the  RUNNING  PROCESS'* 
control  Mack.  AR  ("argument  base")  is  a pointer  to  the  arguments  to  the  Subroutine  now  being  run. 
It  is  set  up  by  the  Subroutine-call  mediator,  and  its  old  value  is  always  restored  after  a mediated 
Subroutine  call  returns.  TB  ("temporaries  base")  points  to  the  frame  for  the  running  Subroutine  and 
also  serves  as  a stack  base  pointer.  The  TB  poiutrr  is  rea”y  all  that  is  necessary  to  return  from  a 
Subroutine  - given  a value  to  return,  for  example  by  IRRfT  - since  the  frame  specifies  the  entire 
stale  of  the  calling  routine.  IP  ("temporaries  pointer")  is  the  actual  stack  pointer  and  always  points 
to  the  current  top  of  the  control  stack. 

While  were  on  the  subject  of  accumulators,  we  might  as  well  be  complete.  Each  accumulator 
contains  the  value  svotd  of  a pair,  the  coiresponding  TYPE  words  residing  in  the  RUNNING  PROCESS 
vector  When  a I’ROCrSS  is  not  RUNNING  tor  when  the  garbage  collector  is  running),  the  accumulator 
contents  are  sioird  in  the  vector,  so  that  the  objects  they  point  to  look  like  elements  of  the  PROCESS 
and  thus  are  not  gaihagr-collectible. 

Accumulators  A,  R,  C.  P,  C and  0 are  used  almost  entirely  as  scratch  accumulators,  and  they  are 
not  saved  or  restored  across  Subroutine  calls.  Of  course  the  interrupt  machinery  always  saves  these 
and  all  other  accumulators.  A and  B are  used  to  return  a pair  as  the  value  of  a Subroutine  call. 
Other  than  that  special  feature,  they  are  just  like  the  other  scratch  accumulators. 

M and  R are  used  in  running  RSlIRRs.  M is  always  set  up  to  point  to  the  start  of  the  RSUBR’s  code, 
svhich  is  actually  just  a unifonn  vector  of  instructions.  All  jumps  and  other  references  to  the  code 
use  M as  an  index  register.  This  makes  the  code  location-insensitive,  which  is  necessary  because  the 
code  uvector  will  move  around.  R is  set  up  to  point  to  the  vector  of  objects  needed  by  the  RSUBR. 
This  accumulator  is  necessary  because  objects  in  garbage-collected  space  can  move  around,  but  the 
pointers  to  them  in  the  reference  vector  are  always  at  the  same  place  relative  to  its  beginning. 

FRM  is  the  internal  frame  pointer,  used  in  compiled  code  to  keep  track  of  pending  Subroutine  calls 
when  (he  control  stack  is  heavily  used  P is  the  internal-stack  pointer,  used  primarily  for  internal 
calls  in  the  interpreter. 

One  of  the  nicest  features  of  the  MDL  environment  is  the  uniformity  of  the  calling  and  returning 
sequence.  /VII  Subroutines  - both  built-in  F/SllRRs  and  compiled  RSUBR( -ENTRY)s  --  are  called  in 
exactly  the  same  way  and  return  the  same  way.  Arguments  are  always  passed  on  the  control  stack 
and  results  always  cud  up  in  the  same  accumulators.  For  efficiency  reasons,  a lot  of  internal  calls 
within  the  interpreter  circumvent  the  calling  sequence.  However,  all  calls  made  by  the  interpreter 
when  running  user  programs  go  through  the  standard  calling  sequence. 

A Subroutine  call  is  initiated  by  one  of  three  lIUOs  (PDP-IO  instructions  executed  by  software 
rather  than  hardware).  MCAl  L ("MDL  call")  is  used  when  the  number  of  arguments  is  known  at 
assemble  or  compile  time,  and  this  number  is  less  than  16.  QCALL  ("quick  call”)  may  be  used  if,  in 
addition,  an  RSUBR(  -ENTRY)  is  bring  called  that  can  be  called  "quickly"  by  virtue  of  it*  having 
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special  information  in  its  reference  vector.  ACALL  ("accumulator  call")  is  used  otherwise.  The 
general  method  of  calling  a Subroutine  is  to  PUSH  (a  PDP-IO  instruction)  pairs  representing  the 
arguments  onto  the  control  stack  via  TP  and  then  either  (I)  NCALL  or  QCALL  or  (2)  put  the  number  of 
arguments  into  an  accumulator  and  ACALL.  Upon  return  the  object  returned  by  the  Subroutine  will 
be  in  accumulators  A and  It,  and  the  arguments  will  have  been  POPped  off  the  control  stack. 

The  call  mediator  stores  the  contents  of  P and  TP  and  the  address  of  the  calling  instruction  in  the 
current  frame  (pointed  to  by  IB).  It  also  stores  MDL's  "binding  pointer"  to  the  topmost  binding  in 
the  control  stack.  (The  bindings  are  linked  together  through  the  control  stack  so  that  searching 
through  them  is  more  efficient  than  looking  at  every  object  on  the  stack.)  This  frame  now  specifies 
the  entire  stale  of  the  caller  when  the  call  occurred.  The  mediator  then  builds  a new  frame  on  the 
control  stack  and  stores  a pointer  back  to  the  caller's  frame  (the  current  contents  of  TB).  a pointer  to 
the  Subroutine  being  called,  and  t hr  new  contents  of  AB,  which  is  a counting  pointer  to  the 
arguments  and  is  computed  from  the  information  in  the  MCALL  or  QCALL  instruction  or  the  ACALL 
accumulator.  TB  is  then  set  up  to  point  to  the  new  frame,  and  its  left  half  is  incremented  by  one, 
making  a new  unique- id.  The  mediator  then  transfers  control  to  the  Subroutine. 

A control  stack  frame  has  seven  words  as  shown: 


I ENIRY  | cal  led-addr  | 


I unique- id  | prov  frame  | 


| argument  pointer  I 


| saved  binding  pointor  I 


I saved  P 


I saved  TP  | 


| saved  calling  address  I 


The  first  three  words  are  set  up  during  the  call  to  the  Subroutine.  The  rest  are  filled  in  when  this 
routine  calls  another  Subroutine.  The  left  half  of  TB  is  incremented  every  time  a Subroutine  call 
occurs  and  is  used  as  the  unique- Id  for  the  frame,  stored  in  frame  and  tuple  pairs  as  mentioned 
before.  Obviously  this  id  is  not  strictly  unique,  since  each  256K  calls  it  wraps  around  to  lero.  The 
right  half  of  IB  is  always  left  pointing  one  word  past  the  saved-calling-address  word  in  the  frame. 
TP  is  also  left  pointing  at  that  word,  since  that  is  the  top  of  the  control  stack  at  Subroutine  entry. 
The  arguments  to  the  called  Subroutine  are  below  the  frame  on  the  control  stack  (at  lower  storage 
addresses),  and  the  temporaries  for  the  called  Subroutine  are  above  the  frame  (at  higher  storage 
addresses).  These  arguments  and  temporaries  are  just  pairs  stored  on  the  control  stack  while  needed; 
they  are  all  that  remain  of  UNSPECIAL  values  in  compiled  programs. 
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The  following  figure  shows  wliat  the  control  stack  might  look  like  after  several  Subroutine  calls. 

/ / 


orris  for  SI  1 

I 

frame  for  51  | 

< 

I 

temps  for  SI  | 


arys  for  52  | 

I 

f rome  for  52  | - 

< 

I 

temps  for  52  | 

I 

orys  f or  S3  | 
frame  for  S3  | - 
I 

temps  for  S3  | 


(top) 

The  above  figure  shows  the  frames  all  linked  together  through  the  control  stack  (the  "execution 
path"),  so  that  it  is  easy  to  return  to  thr  caller  of  a given  Subroutine  (ERRET  or  RETRY). 

Subroutine  esil  is  accomplished  simply  by  (he  call  mediator,  which  loads  the  right  half  of  TB  from 
the  previous  frame  pointer,  restores  the  "binding  pointer",  P,  and  TP,  and  transfers  control  back  to 
the  instruction  following  the  saved  calling  address. 
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Variable  Bindings 

All  local  AIOM  valuer  are  kept  on  the  control  stack  or  the  PROCESS  to  which  they  are  local.  As 
described  before,  the  atom  contains  a word  that  points  to  the  value  on  the  control  stack.  The 
pointer  is  actnallv  to  a six-word  "binding  block"  on  the  control  stack.  Binding  blocks  have  the 
follosviug  format: 


I II I NO  or  UBIND  | prev 


I pointer  to  ATOM 


value 


pa  tr 


I 

I 

I 


I 

I 


I dec)  | unique- id  I 


I previous-binding  | 


where: 

BINP  means  this  is  a binding  for  a SPECIAL  ATOM  (the  only  kind  used  by  compiled  programs), 
and  HU  I NO  means  this  is  a binding  for  an  UNSPECIAL  ATOM  - for  SPECIAL  checking  by  the 
interpreter: 

prev  points  to  the  closest  previous  binding  block  for  any  ATOM  (the  "access  path"  --  UNWIND 
objects  are  also  linked  in  this  chain): 

dec  1 points  to  a OF  CL  associated  with  this  binding,  for  SET(10C ) to  check; 
unique-id  is  used  for  validation  of  this  block:  and 

previous-binding  points  to  the  closest  previous  binding  for  this  ATOM  (used  in  unbinding). 

Bindings  are  generated  by  an  internal  subroutine  called  SPECBINO  (name  comes  from  SPECIAL).  The 
caller  to  SPFCIUNO  PUSIIes  consecutive  six-word  blocks  onto  the  control  stack  via  TP  before  calling 
SPECBINO.  The  first  word  of  each  block  contains  the  TYPE  code  for  ATOM  in  its  left  half  and  all 
ones  in  its  right  half.  SPFCBINP  uses  this  hit  pattern  to  identify  the  binding  blocks.  SPECBIND's 
caller  also  fills  in  the  next  liner  words  and  leaves  the  last  two  words  empty.  SPECBIND  fills  in  the 
rest  and  leaves  the  "binding  pointer"  pointing  at  (hr  topmost  binding  on  the  control  stack. 
SPECBINO  also  stores  a pointer  to  the  current  binding  in  the  value  cell  of  the  atom. 
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Unhin .ling  is  accomplished  during  Subroutine  return.  When  the  previous  frame  is  being  restored, 
the  call  mediator  checks  to  see  if  the  saved  "binding  pointer"  and  the  current  one  are  different:  if 
they  are.  SI'ECSIORE  is  called.  SPECS10RE  runs  through  the  binding  blocks,  restoring  old  value 
pointers  in  atoms  until  the  "binding  pointer"  is  equal  to  the  one  saved  in  the  frame. 


Obviously  variable  binding  is  more  complicated  than  this,  because  ATOMs  can  have  both  local  and 
global  values  and  even  different  local  values  in  different  PROCESSes.  The  solution  to  all  of  these 
additional  problems  lies  i„  the  bindid  field  of  the  atom.  Each  PROCESS  vector  also  contains  a 
current  bindid.  Whenever  an  AlOM's  local  value  is  desired,  the  RUNNING  PROCESS’S  bindid  is 
checked  against  that  of  the  atom:  if  they  are  the  same,  the  atom  points  to  the  current  value:  if  not. 
the  cm  rent  I'ROCTSSs  control  stack  must  be  searched  to  find  a binding  block  for  this  ATOM.  This 
binding  scheme  might  he  called  "shallow  binding*.  The  searching  is  facilitated  by  having  all 
binding  blocks  linked  together.  Referring  to  global  variables  is  accomplished  in  a similar  way. 
using  a VECTOR  that  is  lefened  to  as  the  "global  slack".  The  global  stack  has  only  an  ATOM  and  a 
value  slot  foi  each  variable,  since  global  values  never  get  rebound. 


EVAl  with  respect  to  a different  environment  causes  some  additional  problems.  Whenever  this  kind 
of  EVAl  is  done,  a Inand  new  bindid  is  generated,  forcing  all  current  local  value  cells  of  atoms  to 
appear  invalid,  local  values  must  now  be  obtained  by  searching  the  control  stack,  which  is 
inefficient  cmnpaicd  to  just  pulling  them  out  of  the  atoms.  (The  greatest  inefficiency  occurs  when 
an  ATOMS  IVAl  is  never  used  twice  in  a row  in  the  same  environment.)  A special  block  is  built  on 
the  oontiol  stack  and  linked  into  the  binding-block  chain.  This  block  is  called  a "skip  block’  or 
environment  sphcc  . and  it  diverts  the  "access  path"  to  the  new  environment,  causing  searches  to 
become  relative  to  this  new  environment. 
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Appendix  2.  Predefined  Subroutines 

The  following  is  a very  brief  description  of  all  the  primitives  (F/SUBRs)  currently  available  in 
MDL.  These  descriptions  are  in  no  way  to  be  considered  a definition  of  the  effects  or  values 
produced  by  the  primitives.  They  just  try  to  be  as  complete  and  as  accurate  as  is  possible  in  a 
single-statement  description.  However,  because  of  the  complexity  of  most  primitives,  many 
important  assumptions  and  restrictions  have  been  omitted.  Even  though  all  primitives  return  a 
value,  some  descriptions  mention  only  the  side  effects  produced  by  a primitive,  because  these 
primitives  are  most  often  used  for  this  effect  rather  than  the  value. 

A description  is  given  in  this  format: 

name  ( arguments ) 
dec I 

English  description 

This  format  is  intended  to  look  like  a FUNCTION  definition,  omitting  the  call  to  DEFINE  and  all 
internal  variables  and  code.  The  name  is  just  the  ATOM  that  is  used  to  refer  to  the  primitive.  The 
names  of  the  arguments  are  intended  to  be  mnemonic  or  suggestive  of  their  meanings.  The  dec / is  a 
FUNCTION-style  Of  Cl  (chapter  I I)  for  the  primitive.  In  some  cases  the  DECL  may  look  unusual, 
because  it  is  intended  to  convey  information  to  a person  about  the  uses  of  arguments,  not  to  convey 
information  to  the  MDL  interpreter  or  compiler.  For  example,  <0R  FALSE  ANY>  is  functionally 
equivalent  to  AMY , but  it  indicates  that  only  the  "truth"  of  the  argument  is  significant.  Indeed,  the 
[OPT  ...1  construction  is  often  used  illegally,  with  other  elements  following  it:  be  warned  that 
MDL  would  not  accept  it.  An  argument  is  included  in  the  same  LIST  with  VALUE  (the  value  of  the 
primitive)  only  if  the  argument  is  actually  returned  by  the  primitive  as  a value.  In  other  words, 
#DECL  ((VALUE  ARG)  . ..)  implies  < = = ? .VALUE  .ARG>. 


" ("TUPLE"  FACTORS) 

#DECL  ((VAIUf  ) <0R  f IX  FLOAT) 

(FACTORS’!  < TUPLE  [REST  <0R  FIX  FLOAT)])) 
multiplies  all  arguments  together  (arithmetic) 

♦ ("TUPLE"  TERMS) 

#DECL  ((VALUE)  COR  FIX  FLOAT) 

(TERMS)  < TUPLE  [REST  COR  FIX  FLOAT)])) 
adds  all  arguments  together  (arithmetic) 
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- ("OPIIONAI"  HUM  NR  "TUPLE"  SUBTRAHENDS) 

#DECL  ((VALUE)  <OR  FIX  FLOAT) 

(MINUEND)  <0R  r IX  FLOAT) 

(SUBTRAHENDS)  <TUPLC  (REST  <0R  FIX  FLOAT)])) 
subtracts  oilier  arguments  from  first  argument  (arithmetic) 

/ ("OPTIONAL"  DIVIDEND  "TUPLE"  DIVISORS) 

#DECL  ((VAtUT)  <OR  FIX  FLOAT) 

(DIVIDEND)  COR  FIX  FLOAT) 

(DIVISORS)  CTUPLE  [REST  COR  FIX  FLOAT)])) 
divides  first  argument  by  other  arguments  (arithmetic) 

0 ? ( NUMB! R ) 

#DECL  ((VALUD  COR  'T  '/FALSE  ()) 

(NUMBER)  COR  FIX  FLOAT)) 
tells  whether  a number  is  rero  (predicate) 

1?  (NUMBER) 

#DECL  ((VALUE)  COR  'T  '/FALSE  ()> 

(NUMRIR)  COR  FIX  FLOAT)) 
tells  whether  a number  is  one  (predicate) 

1STEP  (PROCESS) 

#DECL  ((VALUE  PROCESS)  PROCESS) 
causes  a PROCESS  to  enter  single-step  mode 

* = ? (OBJECT-1  OBJECT-? ) 

#DECL  ( ( VALUE ) COR  ’T  ’/FALSE  ()> 

(OBUECT-1  OBJECT-Z)  ANY) 
tells  whether  two  objects  are  "exactly"  equal  (predicate) 

= ? (OBJECT- 1 OBJECT-?) 

#DECL  ((VALUE)  COR  *T  ' /FALSE  ()> 

(OBJECT-]  OBJECT-Z)  ANY) 

tells  whether  two  objects  are  "structurally*  equal  (predicate) 
ASS  (NUMBER) 

#DECL  ((VALUE)  COR  TIX  FLOAT) 

(NUMBER)  COR  FIX  FIOAT)) 
returns  absolute  value  of  a number  (arithmetic) 


ACCESS  (CHANNEL  ACCESS-POINTER) 

#DECt.  ((VAl.UF  CHANNFI. ) CHANNEL 
(ACCESS-POINTER)  FIX) 

set*  access  pointer  for  next  I/O  transfer  via  a CHANNEL 
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ACTIVATE -CHARS  ( "0P1 IONAL"  SIRING) 

'DECL  ((VAItll  SIRING)  STRING) 

sets  nr  reinin'  inlet i ii|>t  characters  for  terminal  typing  (Tenex  and  Tops-20  versions  only) 

AGAIN  ("OPTIONAL-  (ACTIVATION  .LPR0G\  ! -INTERRUPTS) ) 

#0rCL  ( ( VAl  III  ) ANY 

(AfTlVAllON)  ACTIVATION) 
resumes  execution  al  the  given  ACTIVATION 

ALLTYPES  ( ) 

Cl.  ((VAl  Ut)  <VE'CTOR  (REST  ATOM])) 
returns  the  VECIOK  of  all  type  names 

AND  (-ARGS-  ARGS) 

*DECL  ((VAl  III  ) <0R  LAPSE  ANY) 

(ARGS)  LIST) 

computes  logical  "ami"  of  truth-values,  evaluated  by  the  Subroutine 

AND?  ("HUM  l"  TUPLE  ) 

#DECL  ((VALUE)  <0R  FALSE  ANY) 

(1UPLL)  TUPLE) 

computes  logical  "ami"  of  truth-values,  evaluated  at  call  time 

ANDB  ("TUPLE"  WORDS) 

#0ECL  ((VAl  III  ) WORD 

(VOIU)S)  CTIIPIE  [REST  <PRIMTYPE  WORD)])) 
computes  bitwise  "and"  of  machine  words 

APPL ICABt  I.  ? (OB.irCT) 

#DECL  ((VAl  III)  <OR  'T  '*IALSF  ()> 

(OBJECT)  ANY) 

tells  whether  argument  is  applicable  (predicate) 

APPLY  (APPLICABLE  "TUPIE"  ARGUMENTS) 

#DECL  ((VALUE)  ANY 

(APPLICABLE)  APPLICABLE  (ARGUMENTS)  TUPLE) 
applies  first  argument  to  the  other  arguments 

APPLYTYPE  (TYPE  "OPTIONAL"  MOW) 

#DECl  ((VALUE)  <0R  ATOM  APPLICABLE  '#EALSE  ()> 

(TYPE)  ATOM  (MOW)  <0R  ATOM  APPLICABLE)) 
specifies  or  returns  how  a data  type  is  applied 
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ARGS  (CAII  ) 

#DECL  ( ( VAl Ut ) TUPLE 

(CALL)  <0R  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  arguments  of  a given  mi-returned  Subroutine  call 

ASCII  (COUI  -OR-CIIARACTER) 

#DECL  ((VALUE)  <0R  CHARACTER  FIX) 

(COUE-OR  CHARACTER)  <0R  TIX  CHARACTER)) 
returns  CHARAf.lt  R with  given  ASCII  rode  or  vice  versa 


ASSIGNED7  (ATOM  "OPTIONAL*  ENV) 

«0ECL  ((VAl  (If)  <OR  ' T 1 *T  ALSE  ( )) 

(ATOM)  AIOM  (TNV)  <0R  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
tells  whether  an  AIOM  has  a local  value  (predicate) 


ASSOC IAI IONS  () 

*DECt  ( (VAl  III  ) <OR  ASOC  *#FAISE  ()>) 
returns  the  first  object  in  the  association  chain 

AT  (STRUCIURfD  "OPIIOfJAL*  (N  l)) 

AOECL  ((VAl  til  ) IOCA1JVE 

(STRUCTURED)  STRUCTURED  (N)  <0R  FIX  OFFSET)) 
returns  a locative  to  t lie  Nth  element  of  a structure 


ATAN  (NUMBER) 

*0ECL  ((VALUE)  R.OAT 

(NUMBER)  <0R  FIX  FLOAT)) 
returns  arc  tangent  of  a number  (arithmetic) 


ATOM  ( PNAME ) 

#DECL  ( ( VALUT ) AIOM 

( I’NAMI  ) SIRING) 

creates  an  ATOM  with  a given  name 


AVALUr  ( ASSOC] AT  ION) 

#DECL  ( (VAl  III  ) ANY 

(ASSOCIATION)  ASOC) 
returns  the  "value”  field  of  an  association 
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BACK  (SIIUICTURE  "ON  10NAL  " N) 

#0fCl  ( ( VAl Ul  ) <0R  VICTOR  TUPLE  UVECTOR  STORAGE  STRING  BYTES  TEMPLATE) 

(*')  fix 

(STRUT TURi  ) <OR  <PR1M1  YPE  VECTOR)  <PRIMTYPE  TUPLE) 

v PRIMTYPE  UVECTOR)  <PRIMTYPE  STORAGE) 

CPRIMTYPE  STRING)  <PRIMTYPE  BYTES) 

< PRIMTYPE  TEMPLATE))) 

replaces  some  elemenis  removed  from  a non-list  structure  by  RESTing  and  chaw?*  to  primitive  data 
type 

BIND  ("ARCS*  ARGS) 

#0ECL  ( (VAl  III  ) ANY 

(ARGS)  <IISI  [OPT  ATOM]  LIST  [OPT  DECL ] ANY)) 
executes  sequential  expressions  without  providing  a bound  ACTIVATION 

BITS  (WIDTH  "OPTIONAL"  (RIGHT-EDGE  0)) 

#DECL  ((VALUE)  BUS 

(WIDTH  R JGIIF-EOGC ) FIX) 
creates  a hit  mask  for  I’ll T II 1 1 S and  GETBITS 

BLOAT  ("ONIOfJAl" 

( I Rf  f 0)  (SIAfk  0)  (IOCALS  0)  (GLOBALS  0)  (TYPES  0)  (STORAGE  0)  (P-STACK  0) 

MIN  GROW- 1 Of  Al  GROW-Gl ORAL  GROW-TYPF  GROW-STORAGE  PURE  P-STACK-SIZE  STACK-SIZE) 
#DECL  ((VALHL)  F IX 

(FREE  STACK  IOCALS  GLOBALS  TYPES  STORAGE  P-STACK  MIN  GROW-LOCAL  GROW-GLOBAL 
GROW-TYPF  GROW-STORAGE  PURE  P-STACK-SIZE  STACK-SIZE)  FIX) 
allocates  extra  storage  temporarily 

BLOAT-STAT  ("OPTIONAL"  STATS) 

#DFCl  ((VAl  III  ) < UVECTOR  [27  NX]) 

(SI ATS)  CUVLCTOR  [27  ANY])) 
gives  garbage-collector  and  storage  statistics 

BIOCK  (lOOk-UP) 

#DECL((VALUI  tOOk-UP)  COR  OBL1ST  CL1S1  [REST  COR  OBLIST  ’DEFAULT)]))) 

SETs  OBLIST  for  looking  up  ATOMs  during  RLADing  and  PARSEing 

BOUND?  (AIOM  "OIMIONAI"  LNV) 

#DECL  ((VALUE)  COR  'T  '#FALSE  ( )) 

(ATOM)  ATOM  (ENV)  COR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
tells  whether  an  ATOM  is  locally  hound  (predicate) 
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BREAK-SEQ  (OBJECT  PROCCSS) 

#DECL  ((VAIUE  PROCESS)  PROCESS 
(OBJECT)  ANY) 

modifies  execution  sequence  of  another  PROCESS 

BUFOUT  ( "OPT 10NAE"  (CHANNEL  .OUTCHAN)) 

#DECL  ((VALUE  CHANNEL)  CHANNEL) 
writes  out  all  internal  MDL  buffers  for  an  output  CHANNEL 

BYTE-SIZE  (BYTES) 

#DECL  ((VALUE)  FIX 

(BYTCS)  BYTES) 

returns  sire  of  bytes  in  a byte-string 


BYTES  (SIZE  "TUPLE"  ELEMENTS) 

#DECL  ((VALUE)  BYTES 

( STZE ) FIX  (FIEMENTS)  <TUPLE  [REST  FIX]>) 
creates  a byte-string  front  explicit  arguments 


CHANLIST  ( ) 

#DECL  ((VALUE)  <LIST  [REST  CHANNEL])) 
returns  a LIST  of  currently  open  I/O  CHANNELS 

CHANNCL  ("OPTIONAL"  (MODE  "READ")  "TUPLE"  FILE-NAME) 
#DECL  ((VAIUE)  CHANNEL 

(MODE)  SIRING  (FILE-NAME)  TUPLE) 
creates  an  unopened  I/O  CHANNEL 

CHTYPE  (OBJECT  TYPE) 

#DECL  ((VALUE)  ANY 

(OBJECT)  ANY  (TYPE)  ATOM) 
makes  a new  pair  with  a given  data  type  front  an  old  one 


CHUTYPE  (UVECTOR  TYPE) 

#DECL  ((VALUE  UVECTOR)  <PRIMTYPE  UVECTOR) 

(TYPE)  ATOM) 

changes  the  data  type  of  the  elements  of  a uniform  vector 
CLOSE  (CHANNCL) 

#DECl.  ((VAIUF  CIIANNFL)  CHANNEL) 
closes  an  I/O  CHANNEL 


Appendix  2 


The  Ml)l.  Programming  Language 


CLOSURE  (FUNCTION  "TUPLE"  VARIABLES) 

#DECL  ((VALUE)  CLOSURE 

(FUNCTION)  FUNCTION  (VARIABLES)  <TUPLE  [REST  ATOM]>) 

"binds"  t he  free  variables  of  a TUNC!  ION  to  current  values 

COND  ("ARCS"  CLAUSES) 

#DECL  ( ( VAI  111  ) ANY 

(CLAUStS)  <l!Sl  Cl  1ST  <0R  FALSE  ANY»  [REST  <LIST  <OR  FALSE  ANY»]>) 
evaluates  conditions  and  selected  expression 

CONS  (NFW-I  l EMLNl  LIST) 

#DECL  ((VALUE)  l 1S1 

(NEW-I  LLMFNT ) ANY  (LIST)  LIST) 
adds  an  clement  to  the  front  of  a LIST 

COS  (NUMBER) 

#0ECL  ((VALUE)  FLOAT 

(NUMBER)  COR  r IX  FL0AT>) 
returns  cosine  of  a number  (arithmetic) 


CRLF  ("OrtlONAL"  (CHANNEL  .OUICHAN)) 

#DECl  ((VAIlir)  '1 

(CHANNE  l ) CIIANNE I ) 

prints  a carriage-return  and  line-feed  via  an  output  CHANNEL 

OCCL -CHECK  ("OPTIONAL"  SWITCH) 

#DECL  ( ( VAI  III  ) COR  'I  '4FALSE  ()> 

(SWITCH)  COR  FALSE  ANY> ) 
enables  or  disables  type-declaration  checking 


OECL?  ( Oil  JET.  1 PA  I II  RN) 

#0ECL  ((VALUE)  COR  'T  ' #FALSE  ( )> 

(OBJECT)  ANY  (PATTERN)  COR  ATOM  FORh>) 
tells  whether  an  object  matches  a type  declaration  (predicate) 

DEFINE  ('NAME  "ARCS"  ARGS) 

#DECL  ( (VAI  LIE  ) AIOM 

(NAME  ) ANY  (ARES)  CL 'ST  [OPT  ATOM]  LIST  [OPT  DECL]  ANY>) 
sets  the  global  value  of  an  AIOM  :»•  a FUNCTION 

OCFMAC  ('NAMI  "ARGS"  ARGS) 

#DECl  ((VAI  III  ) AIOM 

(NAME)  ANY  (ARGS)  CLIST  [OPT  ATOM]  LIST  [OPT  DECL]  ANY>) 
sets  the  global  value  of  an  ATOM  to  a MACRO 
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OF  MS  If.  ( NAM  I ) 

*DECI  ( ( VAI  III  ) <0K  'T  ' ifFAlSE  ()> 

(NAME)  SIRING) 
signals  an  IT'S  daemon 

OISABIE  (INK  KKIII'l ) 

#D(CL  ( ( VAI  III  IN  if  RRIIPT ) 1HEADER) 
disables  an  interrupt 

DISMISS  (VAI  "OPIIONAL"  ACTIVA1ION  1NT -LEVEL ) 
#DECl  ((VAIUE  VAL)  ANY 

( AC  I IVA1 ION)  ACTIVATION  (INT-IEVEL)  FIX) 
dismisses  an  interrupt  occurrence 


ECHOPA1R  ( IN  Olll ) 

#DECL  ( ( VAI Ul  IN)  CHANNEL 
(Olll  ) CNANNT I ) 

coordinates  I/O  CIIANNI  Is  for  echoing  characters  oil  rubout 
EMPTY?  (OBJCCT ) 

#DECl  ( (VAI  HI  ) <OR  ' T '#IAISt  ()> 

(OBJECT ) SIRUClURtD) 

tells  whether  a struct  tire  lias  zero  elements  (predicate) 

ENABLE  ( INHRRIIPI  ) 

#DECL  ( ( VAI Ul  INIFRRUPT ) IHLADER) 
enables  an  intcriupt 

ENDBLOCK  ( ) 

#DECL  ( (VALUE  ) COR  ORE  1ST  CLIST  l REST  COR  OBLIST  '0EFAULT>]») 
restores  the  .OBI  1ST  that  existed  before  corresponding  call  to  BLOCK 

ENTRY-l OC  (I N1RY) 

#DECL  ((VALUE)  FIX 

(ENTRY)  RSUBR-LNTRY) 

returns  the  offset  in  the  code  vector  of  an  RSUBR-ENTRY 

EOVB  ("TUPLE"  WORDS) 

#DCCl  ((VALUD  WORD 

(WORDS)  CILIPif  l REST  CPRIMTYPE  WORD>)>) 
computes  bitwise  "equivalence"  of  machine  words 
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ERRE1  ( "OR  1 10NAI  " VAL  ( E RAME  ,LLRR\  ! -INTLRRUPTS) ) 

#DFCL  ((VAIUI)  ANY 

(VAl  ) ANY  ( r RAME  ) I RAME) 

continues  evaluation  front  the  last  ERROR  or  LISTEN  or  front  a given  FRAME 

ERROR  ("lliriE"  INIO) 

ADLCI  ( (VAl  (II  ) ANY 

( INI  0)  lUI’l  E ) 

stops  and  informs  user  of  an  error 
ERRORS  ( ) 

#DECI  ( (VAl  III  ) 0111  IS! ) 
returns  the  OIM  1ST  where  error  messages  are  located 

EVAL  (ANY  "OPUONAL"  TNV) 

#DECL  ((VAIUI  ) ANY 

(ENV)  <0R  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
evaluates  an  expression  in  a given  environment 

EVAL  TYPE  ( I YI’E  "OPIIOHAI"  MOW) 

#DECL  ((VAIUI  ) <0R  AIOM  APPLICABLE  ’#FALSE  ()> 

( IYPI  ) AIOM  (MOW)  <0R  AIOM  APPLICABLE)) 
specifies  or  returns  how  a data  type  is  evaluated 

EVENT  ( NAMF  "OPIIONAL"  PRIORITY  WHICH) 

#DECl  ((VAIUI)  Till  AUER 

(NAME  ) COR  SIRING  ATOM  IIIEADCR)  (PRIORITY)  FIX  (WHICH)  COR  CHANNEL  LOCATIVE)) 
sets  up  an  interrupt 

EXP  (NUMBER) 

#Df  CL  ((VAIUI  ) f I OAT 

(NUMBER)  COR  FIX  FI  OAT )) 
returns  "e"  to  the  power  of  a number  (arithmetic) 

EXPAND  (ANY) 

#DECL  ((VALUE)  ANY 
(ANY)  ANY) 

evaluates  its  argument  (only  once  if  a MACRO  is  involved)  in  the  top-level  environment 

FILE-EX1STS?  ("TUPLE"  FILE-NAME) 

#DECL  ((VALUE)  COR  'T  CFALSE  STRING  FIX)) 

(I  II I -NAME)  1UPIL) 
tests  for  existence  of  a file  (predicate) 
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FILE-LENGTH  ( INCH) 

#DECL  ( ( VAI  III  ) I IX 

(INCH)  CHANNEL) 

returns  the  system-provided  length  of  a file  open  on  an  input  CHANNEL 

FILECOPY  ( "OPT  10NAI  " (INCH  .INCHAN)  (OUCH  .OUTCIIAN)) 

#DECL  ((VALUE)  FIX 

(INCH  OUCH)  CHANNEL) 

copies  characters  from  one  CHANNEL  to  another  until  end-of-file  on  the  input  CHANNEL 

FIX  (NUMBER) 

#DECL  ((VALUE)  FIX 

(NUMBER)  <0R  TLOAT  TIX>) 
returns  integer  part  of  a number  (arithmetic) 

FLATSI7E  (ANY  MAX  "OPTIONAL"  (RADIX  10)) 

#DECL  ((VAI  HE)  <OR  r IX  1 itTALSE  ( )> 

(ANY)  ANY  (MAX  RADIX)  FIX) 

returns  numher  of  characters  needed  to  PRIN1  an  object,  if  not  greater  than  given  maximum 

FLOAD  ( " TIIPI  E"  LIir-ITAltl  - AND  - LOOK  - UP ) 

#DECL  ( ( VAI HE ) 1 “DONE" 

(FILE -NAME - AND- LOOK-UP)  TUPLE) 
reads  and  evaluates  all  objects  in  a file 

[ 

FLOAT  (NIIMBIR) 

#DECL  ((VAI  LIE)  FLOAT 

(NUMBER)  COR  FIX  FLOAT)) 
returns  floating-point  value  of  a number  (arithmetic) 

FORM  ("TUPLE"  ELEMENTS) 

#0ECL  ( ( VAI UL ) FORM 

(FI  I Ml  NTS)  TUPl E ) 
creates  a FORM  from  explicit  arguments 

FRAME  ("OPTIONAL"  (TRAME  ,LERR\  ! -INTERRUPTS) ) 

#DECL  ((VALUE)  I RAMI 

(FRAME)  COR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  a previous  Subroutine  call 

FREE -RUN  (PROCESS) 

#DECL  ((VALUE)  COR  PROCESS  '#FALSE  ()> 

(PROCESS)  PROCESS) 

causes  a PROCESS  to  leave  single-step  mode 
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FREEZE  (S1RIIC1UIU  ) 

#DECL  ( ( VAI  Ilf  ) COR  VECIOR  UVECTOR  STRING  BYTES) 

(STRUCTURE)  COR  CPRIMTYPE  VECTOR)  CPRIMTYPE  TUPLE)  CPRIMTYPE  UVECTOR) 
CPRIMTYPE  STRING)  CPRIMTYPE  BYTES))) 
makes  copy  of  argument  in  non-moving  garbage-collected  space 


FUNCT  (TRAIII  ) 

#DECl  ( (VAI  III  ) AlOM 

(I  RAMI)  COR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  Subroutine  name  of  a given  previous  Subroutine  call 

FUNCTION  ( "ARCS"  ARCS) 

#DECL  (( VAI UE)  FUNCTION 

(ARCS)  CLIST  COP  I ATOM]  LIST  [OPT  DECL]  ANY)) 
creates  a TUNCT  ION 

G=  ? (NUMIUR-1  NUMBER-2 ) 

#DECL  ((VALUE)  COR  'T  '#FALSE  ()> 

(NUimrR-1  NUMBER-?)  COR  FIX  FLOAT)) 
tells  whether  first  argument  is  greater  than  or  equal  to  second  (predicate) 


G?  (NUMBER- 1 NUMBER-2) 

#0ECl  ( ( VAI Ur  ) COR  'T  VFALSC  ()> 

(NUimiR-1  NUMBER-2)  COR  FIX  FLOAT)) 
tells  whether  first  argument  is  greater  than  second  (predicate) 

GASSIGNI O’  (AlOM) 

#DECL  ((VALUE)  COR  'T  '#FALSE  ()> 

(ATOM)  ATOM) 

tells  whether  an  ATOM  has  a global  value  (predicate) 

GBOUND?  (AlOM) 

#DECL  ( ( VAI UE ) COR  ’T  ' #FALSE  ()> 

(ATOM)  ATOM) 

tells  svhether  an  AlOM  ever  had  a global  value  (predicate) 


GC  ("OPTIONAL"  MIN  (EXHAUSTIVE?  C>)  MS-FREQ) 

#0ECL  ( ( VAI ME ) riX 

(MIN  MS-1  RIO)  F IX  (EXHAUSTIVE?)  COR  FALSE  ANY)) 
causes  a gaihagc  collection  and  changes  garbage-collection  parameters 


GC-DUMP  (ANY  PR1NTB) 

#DECL  ((VAIIir)  COR  ANY  CtlVECTOR  CPRIIITYPE  WORD))) 
(ANY)  ANY  ( PR  INTO ) COR  CHANNEL  FALSE)) 
dumps  an  object  so  that  it  can  be  reproduced  exactly 
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GC-MON  ( "OP  I IOI1AL  " SWITCH) 

#DECt  ((VAIUE)  <OR  'T  ' #r ALSE  ()> 

(SWI I CM ) COR  TAtSE  ANY> ) 
turns  garbage-collection  itioniioring  off  or  on 

GC-READ  ( RE AOB  "OPTIONAL"  (EOr -ROUTINE  'CERROR  ...>)) 

#DECL  ( ( VAI IIT  ) ANY 

(RfAOli)  CHANNEL  (EOF -ROUTINE)  ANY) 
inputs  an  object  that  was  previously  GC-DUMPetl 

GOECL  ("ARCS"  ARCS) 

#DECL  ((VAI UE)  ANY 

(ARCS)  <1  1ST  [REST  CLIST  [REST  ATOM])  COR  ATOM  FORM)])) 
declnrrs  the  type/M  met  lire  of  tlie  global  value  of  ATOMs 

GET  (ITEM  INDICAIOR  "OPIIONAL"  ( IF-NONE  C))) 

#DECL  ((VALUE)  ANY 

(HIM)  COR  STRUCTURED  ANY)  (INDICATOR)  COR  FIX  OFFSET  ANY)  (IF-NONE)  ANY) 
does  NTH  or  GEIPROP 

GET-OECt  (ATOIT-OR-OrrSn) 

#DECL  ((VAI  lit)  COR  AlOM  FORM  '#FALSE  ()> 

(ATOM-OR-OFFSET)  COR  LOCO  OFFSET)) 
gets  the  type  declaration  for  an  ATOM'S  value  or  an  OFFSET 

GETBITS  (I  ROM  I KID) 

#DECL  ((VALUE)  WORD 

(FROM)  COR  CPRIMTYPE  WORD)  CPRIMTYPE  STORAGE))  (FIELD)  BITS) 
returns  a bit  firld  of  a machine  word  or  STORAGE  address 

GETL  (ITEM  INDICAIOR  "OPTIONAL"  (IF-NONE  <>)) 

#DECL  ((VALUE)  COR  LOCATIVE  LOCAS  ANY) 

(ITEM)  COR  S FRUC IURED  ANY)  (INDICATOR)  COR  FIX  OFFSET  ANY)  (IF-NONE)  ANY) 
does  AT  or  GET  PL 

GETPL  (ITEM  INDICATOR  "OPTIONAL"  (IF-NONE  <>)) 

ADECL  ( (VALUE ) COR  I OCAS  ANY) 

(I1EM  INDICAIOR  IF -NONE ) ANY) 
returns  a locative  to  an  association 

GETPROP  (IIFM  INDICAIOR  "OPTIONAL"  (IF-NONE  <>)) 

#DECL  ((VALUE)  ANY 

(ITEM  INDICATOR  IF-NONE)  ANY) 
returns  the  value  associated  with  an  item  under  an  indicator 


Appendix  2 


Tlie  MDL  Programming  Language 


»7 


GLOC  (ATOM  "OPTIONAL"  (MAKE-SLOT  <») 

#DECL  ((VALUE)  LOCO 

(ATOM)  ATOM  (MAKE-SLOT)  <0R  FALSE  ANY» 
returns  a locative  to  tlie  global-value  cell  of  an  ATOM 


GO  (LABEL) 

#DECL  ((VALUE)  ANY 

(LABEL)  <OR  ATOM  TAG>) 
goes  to  a label  and  continues  evaluation  from  there 

GROW  (U/VECTOR  END  BEG) 

#DECL  ((VALUE)  <OR  <PRIMTYPE  VECTOR>  <PRIMTYPE  UVECTOR» 

(U/VECTOR)  <OR  <PRIMTYPE  VECTOR>  <PRIMTYPE  UVECTOR»  (END  BEG)  FIX) 
increases  the  size  of  a vector  or  uniform  vector 

GUNASSIGN  (ATOM) 

#DECL  ((VALUE  ATOM)  ATOM) 
causes  an  ATOM  to  have  no  global  value 

GVAL  (ATOM) 

#DECL  ( (VALUE)  ANY 
(ATOM)  ATOM) 

returns  the  global  value  of  an  ATOM 

HANDLER  ( IHEADER  HANDLER  "OPTIONAL"  (PROCESS  IPROCESS  0)) 

#DECL  ((VALUE)  HANDLER 

(IHEADER)  IHEADER  (HANDLER)  <OR  HANDLER  APPLICABLE)  (PROCESS)  PROCESS) 
creates  an  interrupt  HANDLER 

HANG  ("OPTIONAL"  (UNHANG  <») 

#DECL  ((VALUE)  ANY 
(UNHANG)  ANY) 

does  nothing,  interrupt ibly . potentially  forever 

IBYTES  (SIZE  LENGTH  "OPTIONAL"  (ELEMENT  0)) 

#DECL  ((VALUE)  BYTES 

(SIZE  LENGTH)  FIX  (ELEMENT)  ANY) 
creates  a byte-string  from  implicit  arguments 

IFORM  (LENGTH  "OPTIONAL"  (ELEMENT  #LOSE  0)) 

#DECL  ((VALUE)  FORM 

(LENGTH)  FIX  (ELEMENT)  ANY) 
creates  a FORM  front  implicit  arguments 
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HIST  (LENGTH  “OPTIONAL'  (ELEMENT  HOSE  0)) 
#DECL  ((VALUE)  LIST 

(LENG1H)  FIX  (ELEMENT)  ANY) 
creates  a LIST  from  implicit  arguments 

IMAGE  (COOC  "OPTIONAL'  (CHANNEL  .OUTCHAN)) 
#DECl  ((VALUE  COOF)  FIX 
(CHANNEL)  CHANNEL) 

sends  an  image-mode  character  via  an  output  CHANNEL 

IN  (POINTER) 

#DECL  ((VALUE)  ANY 

(POINTER)  LOCATIVE) 
returns  the  object  pointed  to  bjr  a locative 


INDEX  (OFFSET) 

#DECL  ((VALUE)  FIX 

(OFFSET)  OFFSET) 

fetches  the  integral  part  of  an  OFFSET 

INDICATOR  (ASSOCIATION) 

#DECL  ((VALUE)  ANY 

(ASSOCIATION)  ASOC) 

returns  the  "indicator"  field  of  an  association 

INSERT  (PNAHE  OBI 1S1 ) 

#DECL  ((VALUE)  ATOM 

( PNAME ) <OR  ATOM  STRING)  (OBLIST)  OBLIST) 

adds  an  ATOM  to  an  OBI  1ST 

INT-LEVEL  ("OPTIONAL'  NEV-INT-LEVEL) 

#DECL  ((VALUE)  FIX 

(NEW-INT-LEVEL)  FIX) 

returns  and/or  sets  current  interrupt  level 

INTERRUPT  (NAME  'TUPLE'  HANDLER-ARGS) 

#DECL  ((VAIUE)  <OR  *T  ’#FALSE  ()> 

(NAME)  <0R  STRING  ATOM  I HEADER)  (HANDLER-ARGS)  TUPLE) 

causes  an  interrupt  to  occur 

INTERRUPTS  () 

#DECL  ((VALUE)  OBLIST) 

returns  the  OBLIST  on  which  interrupt  names  are  kept 
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IPC-HANOI  I R (IIOHY  1 YPl  0 1 HI  R-NAME-1  OTHER-NAME-? 

-OPUONAL"  (MY-NAME-1  <UNAME  >)  (MY-NAME-2  <JNAME>) ) 
#DECL  ((VAI  HE)  ’T 

( ROITY ) <OR  STRING  UVECTOR>  (TYPE)  FIX 
(OKU  R-NAMI - 1 01  HI R-NAMF -2  MY-NAME-1  MY-NAME-2)  STRING) 
is  the  built-in  handler  for  "IPC"  (ITS  version  only) 

IPC-Ofr  () 

*DECl  ((VAIUI  ) ' 1 ) 

stops  all  listening  on  the  IPC  device  (ITS  version  only) 

IPC-ON  ("OPIIONAI"  (MY-NAME-1  <UNAME > ) (MY-NAME-2  <JNAME>) ) 
#DF.CL  ((VAIIIl  ) *1 

(MY-NAME - 1 MY-NAME-2 ) STRING) 
listens  on  the  IPC.  device  (ITS  version  only) 

ISTORAGl  (I.ENGIII  "OPIIONAI"  (ELEMENT  #LOSE  0)) 

#DECL  ((VALUE)  STOr  \GE 

(I  ENGTII)  E t (ELEMENT)  ANY) 

creates  a non-garhage-i  dlected  S10RAGE  from  implicit  arguments  (archaic) 

ISTRING  (LENGTH  "OPTIONAL”  (ELEMENT  !\A0)) 

<»0ECl  ( (VAI  III  ) STRING 

(II  NGIH)  I IX  (Ell  MINT)  ANY) 
creates  a character-string  from  implicit  arguments 

ITEM  (ASSOCIATION) 

*DECL  ((VAIIIl  ) ANY 

( ASSOC  I AT  ION)  ASOC) 
returns  the  "item"  field  of  an  association 

I TUPLE  (I.ENGIII  "OPIIONAL"  (El  EMI  NT  #L0SE  0)) 

#DECL  ((VALUE)  IIIPLE 

(LENGIH)  FIX  (ElFMENT)  ANY) 
creates  a IUPII  from  implicit  arguments 

IUVECTOR  (LENGTH  "OPTIONAL"  (ELEMENT  #L0SE  0)) 

#DECL  ( (VAI  UE ) UVECTOR 

(II  NGIII)  I IX  (El  EMENT)  ANY) 
creates  a UVECIOR  from  implicit  arguments 

IVECTOR  (LENGTH  "OPTIONAL"  (ELEMENT  #L0SE  0)) 

#DECL  ((VAI  III  ) VI  C 1 OR 

(LENGTH)  FIX  (ELEMENT)  ANY) 
creates  a VECTOR  from  implicit  arguments 
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JMAME  ( ) 

♦DEC1  ((VAHID  SIRING) 
munis  the  " joh  iuiiip"  of  Mill  process 

L=?  (NUMIUR-l  HUMBER-2) 

#DCCl  ((VAIUE)  <0R  ' I VFALSE  ( )> 

( HIIMIU  R-  I NIIHBTR-2)  <0R  FIX  FLOAT)) 
tells  whether  fiist  argument  is  less  than  or  equal  to  second  (predicate) 

L?  (NUMBIR-I  NHMRfR-2) 
eOtCI  ((VAl  HI)  vOR  1 1 * 4F At  SF  ()> 

( NUMBER- 1 NUMBER-2)  <0R  FIX  FLOAT)) 
tells  whether  fust  argument  is  less  than  second  (predicate) 

LEGAL  7 (SIA<  K-ORJICT ) 

#0ECL  ((VAIUF)  <OR  *1  1 *f ALSE  ()> 

(STACK-OBJECT ) ANY) 

tells  whethei  argument  (which  might  live  on  the  control  stack)  is  still  legal  (predicate) 

LENGTH  (OBJECT) 

#0ECL  ( ( VAl  tl[  ) FIX 

(OBJICT)  STRtIC.  HIRED) 
returns  the  nnnihei  of  elements  in  a structure 


LENGTH7  (OBJECT  MAX) 

#DFCI  ((V/Alllt)  <OR  (IX  ' el  ALSE  ()> 

(OBJECT)  SIRltC HIRED  (MAX)  FIX) 

tells  whether  length  of  stnuture  is  less  than  or  equal  to  an  integer  (predicate) 


! 


LINK  (EXI’R  I’NAtll  "ON  lOIJAl  ■ (OBI  1ST  <1  .0BL1ST))) 
#DECL  ((VALUE  EVER)  AMY 

( PNAME  ) SIRING  (OBLIST)  OBLIST) 
creates  a symbolic  l INK  to  any  expression  for  READing 

LIST  ( " lUI’LE"  1 1 E ME  MIS) 

#0ECL  ((VALUE)  I 1ST 

(I  1 1 Ml  MIS)  1UPLE) 
creates  a I IS1  from  explicit  arguments 

LISTEN  (“TUm*  INFO) 

#DECl  ( (VAl  III  ) ANY 

(INTO)  TUPLE ) 

stops  and  informs  user  that  MDL  is  listening 


Appendix  2 


The  Mm.  Programming  Language 


*41 


LLOC  (A10M  -OPTIONAL-  CNV) 

#DECL  ((VALUE)  LOCO 

(ENV)  <0R  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  a locative  to  the  local-value  cell  of  an  ATOM 

LOAO  (CHANNEL  "0P1I0NAL"  (LOOK-UP  .OBLIST)) 

#0ECL  ((VALUE)  ’ "DONE" 

(LOOK-UP)  <OR  OBLIST  <LIST  [REST  <OR  OBLIST  ’DEFAULT)]))) 
reads  and  evaluates  all  objects  via  an  input  CHANNEL 


LOCATIVE?  (OBJECT) 

#DECL  ((VALUC)  COR  ’T  '#FALSE  ()> 

(OBJECT)  ANY) 

tells  whether  an  object  is  a locative  (predicate) 

LOG  (NUMBER) 

#DECL  ( ( VAl ME ) FI  OAT 

(NUMBER)  COR  FIX  FLOAT)) 
returns  natural  logarithm  of  a number  (arithmetic) 

LOGOUT  () 

*OECL  ((VALUE)  'AFALSE  ()) 

logs  out  of  the  operating  system  (useful  for  background  processes) 

LOOKUP  ( PNAMF  OBI  1ST) 

#DECL  ((VALUE)  COR  ATOM  '#FALSE  ()> 

( PNAME ) STRING  (OBLIST)  OBLIST) 
returns  an  ATOM  found  on  a given  OBLIST 


LPARSE  ( "OPTIONAL" 

(STRING  .PARSE-STRING)  (RADIX  10)  (LOOK-UP  .OBLIST)  PARSE-TABLE  LOOK-AHEAD) 
#DECL  ((VAIUE)  LIST 

(SIRING)  STRING  (RADIX)  FIX  (PARSE-TABLE)  VECTOR  (LOOK-AHEAD)  CHARACTER 
(LOOK-UP)  COR  OBLIST  CLIST  [REST  COR  OBLIST  ’DEFAULT)]))) 
returns  a LIST  of  the  objects  parsed  from  a STRING  (sections  7.6.6.S,  15.7.2.  J7.I.S) 

LSH  (WORD  AMOUNT) 

#0ECL  ((VALUE)  WORD 

(WORD)  CPRIMTYPE  WORD)  (AMOUNT)  FIX) 
shifts  hits  in  a machine  word 


LVAL  (ATOM  "OPTIONAL*  ENV) 

#OECL  ((VALUE)  ANY 

(FNV)  COR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  the  local  value  of  an  ATOM 


Appendix  2 


242 


The  MDL  Programming  Language 


HA  IN  () 

#DECL  ((VALUE)  PROCESS) 
returns  # PROCESS  1 (the  main  PROCESS) 

MANIFEST  ("TUPLE*  ATOMS) 

#OECL  ((VALUE)  *T 

(ATOMS)  < TUPLE  [REST  ATOM])) 
declares  the  global  values  of  ATOMs  to  be  constant 

MANIFEST?  (ATOM) 

#DECL  ((VALUE)  <OR  *T  '#FAL5E  ()> 

(ATOM)  ATOM) 

tells  whether  the  global  value  of  an  ATOM  is  constant  (predicate) 

MAPF  (FINAL-FCN  LOOP-TCN  "TUPLE"  STRUCTURES) 

#DECL  ((VAIUE)  ANY 

(FINAL-FCN)  <0R  APPLICABLE  FALSE > (LOOP-FCN)  APPLICABLE 
(STRUCTURES)  <TUPLE  [REST  STRUCTURED ]>) 
maps  function  onto  elements  of  structures 


MAPLEAVE  ("OPTIONAL"  (VAL  T)) 

#DECL  ( 

(VAL)  ANY) 

leaves  the  most  recent  MAPF/R  with  a value 

MAPR  (FINAL-FCN  LOOP-FCN  "TUPLE"  STRUCTURES) 

#DECL  ( (VAIUF ) ANY 

(FINAL-FCN)  <0R  APPLICABLE  FALSE)  (LOOP-FCN)  APPLICABLE 
(STRUCTURES)  <TUPLE  [REST  STRUCTURED])) 
maps  function  onto  RESTs  of  structures 

MAPRET  ("TUPLE"  ELEMENTS) 

#DECL  ( 

(ELEMENTS)  TUPLE) 

returns  a variable  number  of  objects  to  the  current  MAPF/R 


MAPSTOP  ("TUPLE"  ELEMENTS) 

#DECL  ( 

(ELEMENTS)  TUPLE) 

MAPRETs.  then  slops  looping  of  MAPF/R  and  causes  application 

MAX  ("TUPLE"  NUMBERS) 

#DECL  ((VALUE)  COR  FIX  FLOAT) 

(NUMBERS)  < TUPLE  [REST  COR  FIX  FLOAT)])) 
returns  the  greatest  of  its  arguments  (arithmetic) 
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HE  () 

#D1  Cl  ( ( VAI  Ilf  ) PROCISS) 
returns  the  cuirent  PROCESS 

MEMBER  (OBJTCT  STRUCTURE) 

#DECI  ( ( VAI  III  ) COR  STRUCTURED  ' #FALSE  ()> 

(OBJECT)  ANY  (STRUCTURE)  STRUCTURED) 

tells  whether  an  object  is  "structurally"  equal  to  some  element  of  a structure  (predicate) 

MEMO  (OBJICI  STRUCTURE) 

#DECL  ((VAIUI)  <0K  STRUCTURED  *#FAISE  ()> 

(OBJECT)  ANY  (STRUCTURE)  STRUCTURED) 
tells  whether  an  ob  ject  is  "exactly"  equal  to  some  element  of  a structure  (predicate) 

HIN  ("lUPLE"  NUMBERS) 

#DECL  ( (VAI UE)  COR  EIX  FLOAT) 

(NUMBIRS)  CTIIPIE  [REST  COR  FIX  FLOAT)])) 
returns  the  leasi  of  its  arguments  (arithmetic) 


MOBIIST  (NAME  "OPTIONAL"  (LENGTH  13)) 

#DECI  ( (VAI  III  ) ORI  1ST 

(NAME  ) AlOM  (LENGTH)  FIX) 
creates  or  gets  an  OUT  1ST 

MOD  (NUMUIR  MOmilUS) 

#DECL  ( ( VAI UE ) I IX 

(NUMBER  MODULUS)  FIX) 

returns  number-theoretic  remainder  (fixed-point  residue)  (arithmetic) 

MONAD?  (OBJECT) 

#DECL  ((VALUE)  COR  'T  ' *f ALSE  ()) 

(OBJECT)  ANY) 

tells  whether  au  ob  ject  is  either  unstructured  or  an  empty  structure  (predicate) 

N = * ? (OBJECT-1  OBJECT -2 ) 
fOFCI  ( ( VAI  IIP  ) COR  'T  '^TALSE  ()> 

(OBJECT -1  OBJICI -2)  ANY) 

tells  whether  two  ob  jects  arc  NOT  "exactly"  equal  (predicate) 

N*7  (OB .11  CT - 1 OBJICT-?) 

#DECL  ((VAI  111)  COR  1 T 'ef  ALSE  ()> 

(OBJECT- 1 OBJECT -2)  ANY) 

tells  whether  two  objects  are  NOT  "structurally"  equal  (predicate) 
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NETACC  (CIIANNI  l ) 

#01  Cl  ( ( VAl  III  ) (OR  CIIANNl  L 1 #1  Al  SE  ()> 

( CIIANNI  I ) CIIANNl. L ) 
accept  % a nclwoik  connect  ion 

NETS  (CIIANNl  l ) 

*1)1  Cl  ((VAl  III  CIIANNI  l ) CIIANNCl  ) 
forces  operating-system  net  work-CHANNFl  buffer  to  be  sent 

NETS! All  (CIIANNI  I ) 

#DECI  ( (VAl  III  ) <UVf  CIOR  I IX  f IX  F1X> 

(CIIANNI  I ) CIIANNI  I ) 

returns  state  infonnation  for  a network  CHANNEL 

NIWIYI'I  (NIW-IYI’I  OID-lYPI  "OIMIONAL"  PATIERN) 

*1)1  Cl  ( (VAl  III  III.  W-  I YI’I  ) A I Oil 

(OIO-IYI'L)  AIOM  (PATTERN)  <0R  ATOM  fORh>) 
defines  a new  data  type 

NEXT  (ASSOC] A I ION) 

*DLCI  ( ( VAl HI  ) < OR  ASOC  '*IAISE  ()> 

( ASSOC  I A I ION)  ASOC) 

returns  the  nest  object  in  t lie  association  chain 

NEXICIIK  ("OIMIONAl"  (CHANNEL  . INC  HAN)  (LOF  -ROUTINE  '(ERROR  ...>)) 
*OECl  ((VAl  III  ) cOK  CHAR  AC  T ( R I 1X> 

( CIIANNI  I ) CIIANNI  I ( I 01  -ROUT  INI  ) ANY) 
returns  the  character  that  will  next  be  read  via  an  input  CHANNEL 

NOT  (01), II  Cl) 

#DF.Cl  ( (VAl  III  ) COR  'I  '*1  Al  SF.  ( )> 

(011,11  Cl)  (OR  I Al  SE  ANY> ) 
computes  logical  “not"  of  a truth-value 

NTH  ( S 1 RlIC  IHRI  0 "OIMIONAL"  N) 

*DECL  ( (VAl  III  ) ANY 

(N)  (OR  I IX  01 1 SET>) 
fetches  the  Nib  element  of  a structure 

OBI  IS  I 7 (AIOM) 

*DLCl  ( { VAl  HI  ) COR  OllllSl  ’*FAISE  ()> 

(AIOM)  AIOM) 

returns  an  AlOM's  OIU  ISI  or  false  if  none  (predicate) 
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Of  F ( IN  11  RRUI’l  "Ol'l  IONAl  H WHICH) 

#DICl  ( (VAI  III  ) < OR  HANOI  TR  HEADER  ’IFAESE  ()> 

( 1N1ERRUPI ) COR  HANOUR  IIUADFR  SIRING  ATOM)  (WHICH)  COR  CHANNEL  LOCATIVE)) 
removes  mi  interrupt  HANOI  ER  or  dcMroys  an  interrupt 

OFFSE  1 (H  PA  1 II  UN) 

#DLCI  ( (VAI  III  ) 01  I SI  I 

(N)  I IX  (I'AIURN)  COR  ATOM  FORM)) 
creates  an  integer  with  atladied  type  declaration 

ON  (NAHI  AmiCAIllI  PRIORI TY  "OPTIONAL"  (PROCESS  0)  WHICH) 

#Dl.Cl  ( (VAI  HI  ) HANDLER 

( N Alii  ) COR  SIRING  ATOM)  (APPIICABLE)  APPLICABLE  (PRIORITY)  FIX 
(PROCISS)  COR  I IX  PROCESS)  (WHICH)  COR  CHANNEL  LOCATIVE)) 
turnc  on  an  intmnpt  anil  creates  an  interrupt  HANDLER 

OPIN  ( "OP  I IONAl  " (11001  "READ")  hTUPLC"  FILE-NAME) 

#01  CL  ( ( VAI  III  ) COR  CHANNII  CIAISE  STRING  SIRING  FIX)) 

(MODI  ) SIRING  (THE -NAME ) TUPLE) 
creates  anil  open*  an  I/O  CIIANNEI 


OPEN-NR  ( "OP  I IONAl  " (MODI  "RIAO")  "IDPLE"  I JI.E-NAME ) 

#Dl  Cl  ((VAI  HI  ) cOR  CHANNEL  CIALSE  SIRING  SIRING  FIX» 

(MODI)  SIRING  (I  HE -NAME)  TUPLE) 
creates  ami  opens  an  I/O  CIIANNI  l without  dunging  file’s  reference  date 

OR  ("ARCS"  ARGS) 

#0(01  ( (VAI  III  ) COR  I Al  SI  ANY) 

(ARGS)  MSI) 

computes  logical  inclusive  "or"  of  iiutli-values,  evaluated  by  the  Subroutine 

OR?  ( " HUM  I " Itll’l  I ) 

#01  Ct  ((VAI  (II  ) COR  f At  SI  ANY) 

( Till’ll  ) lUPlt) 

coinpiiirs  logical  inclusive  "or"  of  trulli-valucs.  evaluated  at  call  time 


ORB  ("llll’IL"  WORDS) 

#Df  Cl  ( (VAI  III  ) WORD 

(WORDS)  < IIII’IE  (RISE  < PRIM  TYPE  WORD)])) 
computes  bitwise  inclusive  "or"  of  machine  svords 

OVERIIOW  ("OPT  IONAl."  SWITCH) 

#DEC.l  ( ( VAI  III  ) COR  'T  ' #1  AI.SE  ()> 

(SWIICIO  COR  ANY  FALSE)) 
enables  or  disables  overflow  error  (arithmelic) 
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PARSE  ("OPTIONAL" 

(SIRING  .PARSF.-SIRING)  (RADIX  10)  (LOOK-UP  .OBLIST)  PARSE-TABLE  LOOK-AHEAD) 
#OECL  ((VAllir  ) ANY 

(SIRING)  SIRING  (RADIX)  FIX  (PARSE-TABLE)  VECTOR  (LOOK-AHEAD)  CHARACTER 
(LOOK-UP)  <OR  OBLIS1  <LIST  [RCST  <OR  OBLIST  'DEFAULT)]))) 

parses  a SIRING  intn  an  object  (sections  7.66.2.  15.7.2.  17.1.3) 

PCODE  ( NANI  01  ISM) 

#DECL  ((VAIUE)  PCODE 

(NAflD  SIRING  (OFFSET)  FIX) 

creates  pointer  to  pure  RSUBR  code 

PNAME  (A  1011) 

#DECI  ( (VAI  III  ) STRING 
( A I OH ) AIOM) 

returns  the  print-name  of  an  ATOM  as  a distinct  copy 

PRIM  TYPE  (OBJECT) 

#DFCL  ((VAI  III  ) AIOM 
(OBJECT)  ANY) 

returns  the  primitive  data  type  of  an  object 

PRIM1YPI  -C  ( I YPI  ) 

#DECl  ((VAtUL)  PRIMT YPF-C 
(TYPE)  ATOM) 

gets  a "storage  allocation  code"  for  a data  type 

PR  IN  1 (OBJECT  "OPTIONAL"  (CHANNEL  .OUTCHAN)) 

#DFCL  ((VAI1IF  OBJECT)  ANY 
(CIIANNI  I ) f IIANNFI  ) 

prints  an  object  via  an  output  CHANNEL 

PRINC  (OBJECT  "0P1I0NAI"  (CHANNEL  .OUTCHAN)) 

#DFCl  ((VAI  III  OBJECT)  ANY 
(CIIANNI  l ) CIIANNI  L) 

prints  an  object  via  an  output  CHANNEL  without  STRING  or  CHARACTER  brackets  or  ATOM  trailers 

PRINI  (OBJECT  "OPUONAI"  (CHANNEL  .OUTCHAN)) 

#DECL  ( (VAI Ul  OBJECT)  ANY 
(CHANNEL)  CHANNEL) 

prints  an  object  via  an  output  CHANNEL  between  ucw-line  and  space 
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PRINTB  (BUFFER  CHANNEL ) 

#DECL  ( (VALUE  BUFFFR)  <<0R  UVECTOR  STORAGE)  [REST  CPRIMTYPE  W0RD>]> 

(CHANNEL)  CHANNEL) 

writes  binary  iiirormation  via  an  output  CHANNEL 

PRINTSTRING  (BUFFER  "OPTIONAL"  (CHANNEL  .OUTCHAN)  (COUNT  <LENGTH  .BUFFER))) 
#DECL  ((VALUE  COUNT)  FIX 

(BUFFER)  STRING  (CHANNEL)  CHANNEL) 
writes  contents  of  a STRING  via  an  output  CHANNEL 

PRINTTYPE  (TYPE  "OPTIONAL"  HOW) 

#DECL  ((VALUE)  COR  ATOM  APPLICABLE  *#FALSE  ()> 

(TYPE)  ATOM  (HOW)  COR  ATOM  APPLICABLE)) 
specifies  or  returns  how  a data  type  is  printed 

PROCESS  (STARTUP) 

#DECL  ((VAIUE)  PROCESS 

(STARTUP)  APPLICABLE) 

creates  a new  PROCESS  with  given  startup  function 

PROG  ("ARCS"  ARGS) 

#DECL  ((VALUE)  ANY 

(ARCS)  CLIST  [OPT  ATOM]  LIST  [OPT  DECL]  ANY)) 
executes  sequential  expressions 

PURIFY  ("TUPLE"  TUPLE) 

#DECL  ((VALUE)  ANY 

(TUPLE)  TUPLE) 

purifies  objects  for  sharing  by  different  operating-system  processes 

PUT  (ITEM  INDICATOR  "OPTIONAL"  VAL) 

#0ECL  ((VALUE)  ANY 

(ITEM)  COR  STRUCTURED  ANY)  (INDICATOR)  COR  FIX  OFFSET  ANY)  (VAL)  ANY) 
stores  into  structure  or  does  PUTPROP 

PUT-DF.CI  (IDENTIFIER  PATTERN) 

#DECL  ((VALUE  IDENTIFIER)  COR  LOCO  OFFSET) 

(PATTERN)  COR  ATOM  FORM)) 

changes  the  type  declaration  for  an  ATOM'S  value  or  an  OFFSET 

PUTBITS  (TO  FIELD  "OPTIONAL"  (FROM  0)) 

#DECL  ((VALUE)  CPRIMTYPE  WORD) 

(TO  FROM)  CPRIMTYPE  WORD)  (FIELD)  BITS) 
sets  a bit  field  in  a machine  word 
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PUTPROP  (ITEM  INDICATOR  •OPTIONAL"  VAL) 

#DECl  ((VALUE)  ANY 

( ITFM  INDICATOR  VAL)  ANY) 

(disassociates  a value  with  an  item  under  an  indicator 

PUTREST  (HEAD  TAIL) 

#DECL  ((VALUE  HEAD)  CPRIMTYPE  LIST> 

(TAIL)  <PRIMTYPE  LIST>) 
replaces  Hie  rest  of  a list 

QUIT  () 

#DECL  ((VALUE)  'IFALSE  ()) 
exits  from  MDL  gracefully 

QUITTER  (WAS-TYPE 0 CHANNEL) 

#DECL  ((VALUE  WAS-TYPEO)  CHARACTER 
(CHANNEL)  CHANNEL) 

is  the  interrupt  handler  for  AG  and  ''S  quit  features 

QUOTE  ("ARGS"  ARGS) 

#DECL  ((VALUE)  ANY 
(ARGS)  LIST) 

returns  the  first  argument  unevaluated 

RANDOM  ("OPTIONAL*  SEED-1  SEED-2) 
iDECL  ( (VALUF ) FIX 

(SEED-1  SEED-2)  FIX) 

generates  a uniform  pseudo-random  integer  (arithmetic) 

READ  ("OPHONAI" 

(CHANNEL  .INCHAN)  (EOF-ROUTINE  '<ERROR  ...>)  (LOOK-UP  .OBLIST)  READ-TABLE) 
#DECL  ((VALUE)  ANY 

(CHANNEL)  CHANNEL  (EOF-ROUTINE)  ANY  (READ-TABLE)  VECTOR 
(LOOK-UP)  <OR  OBLIST  <LIST  [REST  <OR  OBLIST  'DEFAULT>]») 
reads  one  object  via  an  input  CHANNEL  (sections  ll.l.l.l,  11.3. 15.7.1, 17.1.3) 

READB  (BlirrER  CHANNEL  "OPTIONAL"  (EOF-ROUTINE  '< ERROR  ...>)) 

#DECL  ((VALUE)  FIX 

(BUFFER)  <<OR  UVECTOR  STORAGE)  [REST  <PRIMTYPE  WORD)]) 

(CHANNEL)  CHANNEL  (EOF-ROUTINE)  ANY) 
reads  binary  information  via  an  input  CHANNEL 
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READCHR  ( "OPTIONAL"  (CHANNEL  .INCIIAN)  (EOF -ROUTINE  TERROR  ...>)) 

#DECL  ((VALUE)  <OR  CHARACTER  FIX> 

(CHANNEL)  CHANNEL  (EOF-ROUTINE)  ANY) 
reads  one  character  via  an  input  CHANNEL 

REAOSTRING  (BUFFER  "OPTIONAL"  (CHANNEL  .INCHAN)  (STOP  < LENGTH  .BUFFER» 

(EOF-ROUTINE  '<ERR0R  ...») 

#DECL  ((VALUE)  FIX 

(BUFFER)  STRING  (CHANNEL)  CHANNEL  (STOP)  <OR  FIX  STRING)  (EOF-ROUTINE)  ANY) 
reads  into  a STRING  via  an  input  CHANNEL 

REALTIMLR  ("OPTIONAL"  INTCRVAL) 

#DECL  ((VALUE)  <OR  FIX  FLOAT  ' #FALSE  ()> 

(INTERVAL)  <OR  FIX  FLOAT)) 

sets  or  fetches  interval  for  real-time  interrupts  (ITS  version  only) 

REMOVE  ( PNAME  "OPTIONAL"  OBLIST) 

#DECl  ((VALUE)  <OR  ATOM  ’fFALSE  ()) 

(PNAME)  <OR  ATOM  STRING)  (OBLIST)  OBLIST) 
removes  an  ATOM  from  an  OBLIST 

RENAME  ("TUPLE"  FILE-NAME/S) 

#0ECL  ((VALUE)  <OR  'T  <FALSE  STRING  FIX)) 

(FILE-NAME /S)  <TUPLE  <OR  STRING  CHANNEL))) 
renames  or  deletes  a disk  file 

REP  () 

#DECL  ((VALUE)  ANY) 

is  the  built-in  function  for  READ-EVAL-PRINT  loop 

REPEAT  ("ARCS"  ARGS) 

#DECL  ((VALUE)  ANY 

(ARGS)  CLIST  (OPT  ATOM]  LIST  [OPT  DECL]  ANY)) 
executes  sequential  expressions  repeatedly 

RESET  (CHANNEL) 

#DECL  ((VALUE)  COR  CHANNEL  CFALSE  STRING  STRING  FIX)) 

(CHANNCL)  CHANNEL) 
reopens  an  I/O  CHANNEL  at  its  beginning 

REST  (STRUCTURED  "OPTIONAL"  (N  1)) 

#DECL  ((VALUE)  STRUCTURED 
(N)  FIX) 

removes  the  first  N elements  from  a structure  and  changes  to  primitive  data  type 
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RESTORE  ( ’OPTIONAL"  NAME-1  NAME-2  NAME-3  NAME-4) 

#DECl  ((VALUE)  • "RESTORED" 

(NAME-1  NAME-2  NAME-3  NAME-4)  STRING) 
restores  MDL's  state  from  a file 

RESUME  (VAl.  "OPTIONAL  ■ (PROCESS  <RESUHER>)) 

#DECL  ((VALUE)  ANY 

(VAL)  ANY  (PROCESS)  PROCESS) 
transfers  ex  rent  inn  to  another  PROCESS 

RESUMER  ("OPTIONAL"  (PROCESS  <ME») 

#DE CL  ((VALUE)  <OR  PROCESS  '#FALSE  ()> 

(PROCESS)  PROCESS) 

returns  the  PROCESS  that  last  resumed  the  given  PROCESS 

RETRY  ("OPTIONAL"  FRAME) 

#DECL  ( 

(FRAME)  FRAME) 

retries  a previous  Subroutine  call,  usually  from  the  error  level 

RETURN  ("OPTIONAL"  (VAL  T)  (ACTIVATION  .LPR0G\  ! -INTERRUPTS)) 
#DECL  ((VALUE)  ANY 

(VAL)  ANY  (ACTIVATION)  ACTIVATION) 
leaves  a PROG/REPEAT  with  a value 

RGLOC  (ATOM  "OPTIONAL"  (MAKE-SLOT  <>)) 

#0ECL  ((VALUE)  LOCR 

(ATOM)  ATOM  (MAKE-SLOT)  <OR  FALSE  ANY>) 
returns  a locative  to  the  global-value  cell  of  an  ATOM  for  pure-program  use 

ROOT  () 

#DECL  ((VALUE)  OBLIST) 
returns  the  OBLIST  containing  names  of  primitives 

ROT  (WORD  AMOUNT) 

#DECL  ((VALUE)  WORD 

(WORD)  <PR1MTYPE  WORD>  (AMOUNT)  FIX) 
rotates  bits  in  a machine  word 

RSUBR  (CANDIDATE) 

#DECL  ((VALUE)  RSUBR 

(CANDIDATE)  <VECTOR  <OR  CODE  PCODE>  ATOM  DECL  [REST  ANY]>) 
creates  an  RSUBR 
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RSUBR-l  N I RY  ( C AMI»  I DATE  OFFSET) 

#DFCL  ( ( VAl Ur  ) RSUBR-l NTRY 

( CANDIDATE  ) CVECTOR  <0R  ATOM  RSUBR)  ATOM  DECL>  (OFFSET)  FIX) 
adds  ail  rutty  point  to  ail  RSUBR 

RSUBR-l INk  ("OPTIONAL"  SWITCH) 

*01  CL  ( ( VAl  III  ) <0R  'T  *#F  ALSE  ()> 

(SU1  It'll)  <0R  I AISE  ANY>) 
enables  or  disables  l lie  antomalic  RSUBR  linking  feature 

RIININT  ( * IIIPI I * IUPII) 

#DECL  ((VAl  III  ) ANY 

( 1 Ill'Ll ) TUPLE) 

applies  iutrriiipt  handler  (for  internal  use  only) 

RUNT  I Ml R ("0P110NAL"  1N1ERVAL) 

#DECl  ((VAUIL)  <0R  T IX  FLOAT  *#FALSE  ()> 

( INIl  RVAl  ) <0R  I IX  T L OAT > ) 

sets  or  fetches  interval  for  run-time  interrupt  (ITS  version  only) 

SAVE  ("TUPLE"  FILC-NAME-AND-GC?) 

#DCCl  ((VAl  III)  ’"SAVED" 

(I  11  E-HAMF -AND-GC?)  <TIIPIE  [OPT  STRING]  [OPT  STRING] 

[OPT  STRING]  [OPT  STRING]  [OPT  <0R  FALSE  ANY)])) 

writes  the  entire  state  of  MDL  to  a file 

SEND  (Ollll  R-NAMI -1  01  (IF  R-NAME-2  BODY 

"OPTIONAL"  (IYPI  0)  (MY-NAMF- 1 <UNAME>)  (MY-NAME-2  <JNAME>) ) 

#DECl.  ( ( VAl  III  ) <OR  ’T  1 ALSE  ()> 

(OTHrR-NAMF-1  01 IIFR-NAMF -2  MY-NAME-1  MY-NAME-2)  STRING  (TYPE)  FIX 
(BODY)  <0R  SIRING  SI  OR  AGE  <UVECT0R  [REST  <PRIMTYPE  WORO>]») 
sends  an  I PC  message  (ITS  version  only) 


SEND-WA  1 1 (Ollll  R-NAMI -1  Ollll  R-NAME-2  BODY 

"OPllONAl"  ( 1 YPE  0)  (MY-NAML-1  <UNAME>)  (MY-NAME-2  < JNAME>) ) 
#0ECL  ( ( VAL  HI  ) '1 

( 01  III  R -NAME  - 1 Ollll  R-NAME-2  MY-NAME-1  MY-NAME-2)  STRING  (TYPE)  FIX 
(BODY)  <0R  STRING  SIORAGE  OIVECTOR  [REST  <PRIMTYPE  W0RD>]») 
sends  an  I PC  message  and  waits  for  it  to  be  received  (ITS  version  only) 

SET  ( AIOM  l VAl  "OPllONAl"  ENV) 

#DECl  ((VAl  III  I VAl  ) ANY 

(ATOM)  AIOM  (INV)  <0R  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
changes  the  local  value  of  an  AIOM 
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SETG  (A IOM  tiVAl  ) 

*DECL  ( ( VAI  III  GVAI  ) ANY 
(ATOM)  A 1 01 1 ) 

changes  (lie  global  value  of  an  ATOM 

SETIOC  ( I'OlNIt  R OBJECT) 

#DECL  ( (VAI UL  OBJECT)  ANY 
( POINTER ) LOCATIVE) 

changes  (hr  content*  pointed  to  by  a locative 

SIN  (NUMBER) 

#DECL  ((VAI BE)  ELOAT 

(NIIIII5I  R)  <0R  I IX  I LOAT > ) 
returns  sine  of  a number  (arithmetic) 

SLEEP  (<0R  r IX  El  OAT  > "OPTIONAL"  (UNHANG  <>)) 

#DECL  ( (VAI  III  ) ANY 

(UNHANG)  ANY) 

does  nothing,  intcnuptihly.  the  given  number  of  seconds 

SHAME  ( "OPT IONAI  " UIRICTORY) 

#DECI  ((VALUE  DIRECTORY)  SIRING) 
sets  or  returns  the  directory  name  used  by  default  for  new  I/O  CHANNELS 

SORT  (PRIIl  MY-SIIUIC  "OPTIONAL"  (RECORD-LENGTH  1)  (KEY-OFFSET  0) 

"TUPLE”  OTHER-STRUCS-AND-RECORD-LENGTHS) 

#DECL  ((VALUE  kE  Y-STRUC ) <0R  <PRIMTYPE  VECTOR)  <PRIMTYPE  TUPLE)  CPRIMTYPE  UVECT0R» 
(PRUT)  <0R  IALSC  APPLICABLE)  ( RCCORD-LENGTH  KEY-OFFSET)  FIX 
(Ollll  R-S IRUCS-AND-RL  CORD-LENGTHS) 

< IUPI E (REST  COR  CPRIMTYPE  VECTOR)  CPRIMTYPE  TUPLE)  CPRIMTYPE  UVECTOR))  FIX]>) 
sorts  elements  of  a structure  and  rearranges  other  structures 

SPECIAL-CHICK  ("OP1 IONAI"  SWLICH) 

#DECL  ((VALUE)  COR  'T  'IFAISE  ()> 

(SWITCH)  COR  ANY  EALSE)) 
turns  interpreter  special-checking  on  or  off 

SPECIAL-MODE  ("OPTIONAL"  SWITCH) 

#DECl.  ((VAI  LIE)  COR  'SPECIAL  'UNSPCCIAD 
(SWITCH)  COR  'SPECIAL  MINSPECIAL)) 
sets  specialty  declaration  used  by  default 
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SPNAME  ( A 1 OH ) 

#DECL  ((VAIUE)  STRING 
(ATOM)  AIOH) 

returns  the  print-name  of  an  ATOM  by  sharing  it 


SORT  (NUMBER) 

<DECE  ( ( VAI  ill  ) FI  OAT 

(NUMIHR)  <OR  HX  F LOAT > ) 
returns  square  root  of  a number  (arithmetic) 


SQUOTA  (SYMIKH  ) 

#OECL  ( (VALUE  ) COR  FIX  'FFALSE  ()> 

(SYMBOL)  CPRIHIYPE  W0R0>) 

gets  the  address  of  an  internal  interpreter  symbol  (for  internal  use  only) 

STACkfORM  ("ARCS'*  ARCS) 

#DECL  ((VALUE)  ANY 
(ARCS)  LIST) 

applies  a function  to  stacked  arguments  (archaic) 

STATE  (PROCESS) 

#DfCL  ((VAHID  ATOM 

(PROCISS)  PROCISS) 
returns  a PROCESS’S  current  state 


STRCOMP  (SIRING- 1 SIRING-?) 

<*0ECL  ((VAI  III  ) COR  '1  '0  '-1> 

(STRING-1  SIRING-?)  <0R  AIOM  STRING)) 
compares  tun  chaiarter-strings  or  two  print-names 

STRING  ("lUPIL"  I ILMLN1S) 

#0ECL  ((VAI HE)  SIRING 

(CLCMI NTS)  c TUPLE  [REST  COR  STRING  CHARACTER) ]>) 
creates  a character-string  from  explicit  arguments 


STRUCTURI 0?  (OBJECT ) 

#0ECL  ((VAIUE)  COR  'T  'tTALSE  ()) 

(OIUFCT)  ANY) 

tells  whether  an  ob  ject  is  structured  (predicate) 

SUBSTITUTE  (NIWOIP) 

#DFCL  ((VAI  Ilf  010)  ANY 
(NEW)  ANY) 

substitutes  one  ob  ject  for  another  in  the  entire  address  space 
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SUBSTRUC  ( f ROM  “0PT10NAI"  ( RTS T 0)  (AMOUNT  <-  <LENGTH  .OBJECT>  .REST>)  TO) 
*DECL  ( ( VAI  111  10)  COR  I 1ST  VECTOR  UVECTOR  STRING  BYTES> 

((ROM)  <OR  CPRIMTYPE  LIST>  <PRIMTYPE  VECTOR)  <PRIMTYPE  TUPLE) 

<PRIMTYPE  UVECTOR)  <PRIMTYPE  STRING)  <PRIHTYPE  BYTES)) 
(REST  AMOUNT)  TIX) 
copies  (part  of)  a structure  into  another 


SUICIDE  ( VAI  "OPTIONAL"  (PROCESS  <RESUMER>)) 
ADF.CL  ((VAI  III)  ANY 

(VAL)  ANY  (PROCESS)  PROCESS) 
causes  the  current  PROCESS  to  die  and  resumes  another 


TAG  ( I ABI  l ) 

#DECL  ( (VATUl  ) 1 AG 

(LABEL)  ATOM) 
creates  a TAG  for  use  by  GO 


TERPRI  ("OPTIONAL"  (CHANNEL  .OUTCHAN)) 

#DECL  ((VALUE)  ' #T ALSE  () 

(CHANNEL)  CHANNEL) 

prints  a carriage-return  and  line-feed  via  an  output  CHANNEL 


TIME  ("TUPLE"  IGNORED) 

#DCCL  ((VAHJE)  flOAT 

( TGNORI 0)  1UPIE) 

returns  the  elapsed  execution  time  in  seconds 


TOP  ( STRUCTURE ) 

#DECL  ((VALUI  ) COR  VEC10R  TUPLE  UVECTOR  STORAGE  STRING  BYTES  TEMPLATE) 

(STRUCTURE)  COR  CPR1M1YPE  VECTOR)  <PRIMTYPE  TUPLE) 

CPR1MTYPE  UVECTOR)  CPRIMTYPE  STORAGE) 

CPRIMTYPE  STRING)  <PRIMTYPE  BYTES)  <PRIMTYPE  TEMPLATE))) 

replaces  all  elements  removed  from  a non-list  structure  by  RESTing  and  changes  to  primitive  data 

lyp* 


TTYECIIO  (CHANNEI  SWITCH) 

#DECL  ((VALUE  CHANNEL)  CHANNEL 
(SWITCH)  COR  EAISE  ANY)) 

turns  rchoing  (of  cliararters  typed  on  a terminal)  on  or  off 


TUPLE  ("TUPLE"  ELEMENTS) 

ADECL  ((VALUE)  TUPLE 

(ELEMENTS)  TUPLE) 

creates  a TUPLE  front  explicit  arguments 
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TYI  ("OPTIONAL"  CHANNEL) 

#DECL  ((VALUE)  CHARACTER 
(CHANNEL)  CHANNEL) 

inputs  a CHAKACIFR  from  a terminal  immediately 

TYPE  (OBvirCT) 

#DECL  ((VALUE)  AIOM 
(OBJECT)  ANY) 

returns  the  data  type  of  an  object 

TYPE-C  (TYPE  "OPTIONAL"  PRIMTYPE ) 

#DECL  ((VALUE)  TYPE-C 

(TYPE  PRIMTYPE)  ATOM) 
makes  a data  type  code  for  purc-program  use 

TYPE-W  (TYPE  "OPTIONAL"  PRIMTYPE  RIGHT-HALF) 

#DECL  ((VALUE)  TYPE-W 

(TYPE  PRIMTYPE)  ATOM  (RIGHT-HALF)  <PRIMTYPE  V0RD>) 
makes  a data-type  machine  word  for  pure-program  use 

TYPE?  (OBJECT  "TUPLE"  TYPES) 

#DECL  ((VALUE)  <0R  ATOM  '#FALSE  ()> 

(OBJEC1)  ANY  (TYPES)  <TUPLE  ATOM  [REST  AT0M]>) 
tells  whether  an  object's  data  type  is  one  of  the  given  types  (predicate) 

TYPEPRIM  (TYPE) 

#DECL  ((VALUE)  ATOM 
(TYPE)  ATOM) 

returns  a data  type’s  primitive  type 
UNAME  ( ) 

*DECL  ((VALUE)  STRING) 
returns  the  "user  name"  of  MDL’s  process 

UNASSIGN  (ATOM  "OPTIONAL"  ENV) 

#DECL  ((VALUE  ATOM)  ATOM 

(ENV)  <OR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
causes  an  ATOM  to  have  no  local  value 

UNMANirEST  ("TUPLE"  ATOMS) 

#DECL  ((VALUC)  'T 

(ATOMS)  < TUPLE  [REST  A10M]>) 
declares  the  global  values  of  ATOMs  not  to  be  constants 
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UNPARSI  (Olt.im  "OPIlONAl"  RADIX) 
#DECL  ((VAIUE)  SIRING 

(OBJECT)  ANY  (RADIX)  FIX) 
creates  a SIRING  representation  of  an  object 


UNWIND  ( 'NORMAL  ’CLEAN-UP) 

#DECL  ((VALUE)  ANY 

(NORMAL  Cl LAN-UP ) ANY) 
specifies  cleaning-tip  (luting  non-local  return 


UTYPE  (UVLCTOR) 

#DECL  ( (VAI  III  ) AlOM 

(UVECIOR)  <PRIMI YPE  IIVLC10R>) 
returns  the  data  type  of  all  elements  of  a uniform  vector 


UVECIOR  ("1UPIL"  ILLItrNlS) 

#DECL  ((VAUIL)  UVE C 1 OR 
(ELEMENTS)  TUPLE) 

creates  a UVECIOR  from  explicit  arguments 

VALID-TYPE?  (TYPE) 

#DECL  ( (VAI Ul)  COR  TYPE-C  '#FALSE  ()> 

( 1 YPF ) AlOM) 

tells  whether  an  AlOM  is  the  name  of  a type  (predicate) 

VALRET  ( MESSAGE ) 

#DECl.  ((VAI  III  ) ' *T  Al  SC  () 

(MESSAGE)  COR  SIRING  FIX>) 
passes  a message  to  the  superior  operating-system  process 


VALUE  (AlOM  "OPIlONAl"  HIV) 

#DECL  ((VALUE)  ANY 

(ATOM)  ATOM  (ENV)  COR  FRAME  ENVIRONMENT  ACTIVATION  PROCESS)) 
returns  the  local  or  else  the  global  value  of  an  ATOM 

VECTOR  ("IUPIE"  ELEMENTS) 

#DECL  ((VALUE)  VECTOR 

(ELI  Ml  IIIS)  TUPLE) 

creates  a VI  ClOK  from  explicit  arguments 
XJNAME  () 

#DECL  ( ( VALlir  ) STRING) 
returns  the  “intended  job  name"  of  MDL's  process 
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XORB  ("TUPLE"  WORDS) 

#DECL  ((VAIUI  ) WORD 

(WORDS)  < 1 DPI E [ RES1  <PRIMTYPE  WORD>]>) 
computes  bitwise  exclusive  "or”  of  machine  word: 

XUNAMC  ( ) 

#0ECL  ((VAIUE)  SIRING) 
returns  the  ‘'intended  user  name"  of  MDL’s  process 
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Appendix  3.  Predefined  Type* 


On  these  two  pages  is  a table  showing  each  of  Ml)L's  predefined  TYPE*.  its  primitive  type  If 
different,  and  various  flags:  S Tor  SIRUCIURI.O,  I for  IVAIIYPL  not  QU01E,  and  A for  APPLICABLE. 

X means  that  an  object  of  that  IYPI  cannot  tie  CMTYPEd  to  and  hence  cannot  be  READ  In  (if 
attempted,  a CAN' I CM  IYPI  - IN10  error  is  usual). 

II  means  that  an  object  of  that  IYI'1  cannot  tie  Rl  AD  in  (if  attempted,  a SIORAGE-T YPES-DIFFER 
error  is  usual),  that  instead  it  is  built  by  the  interpreter  or  CIITYPfd  to  by  a program,  and  that  iU 
PR  IN  led  representation  makes  it  look  as  though  its  IYPI  PRIM  were  different. 

X means  that  an  object  of  that  IYPI  is  PRINIrd  using  X notation  and  can  be  READ  in  only  that  way. 


TYPE 

IYPI PRIM 

S E A 

comments 

AC  1 IVAI ION 

1 RAMI 

X 

ASOC 

II 

sic:  only  one  S 

AIOM 

mis 

WORD 

HYII  S 

s 

CIIANNI  1 

VI  Cl  OR 

s x 

CIIARAC.il  R 

WORD 

CiOSURI 

1 ISI 

S A 

com 

tIVI  Cl  OR 

S 

Df  Cl 

l ISI 

s 

DISMISS 

AIOM 

can  be  returned  by  interrupt  handler 

l NVIRONMI  N 1 

1 RAtll 

it 

«■ 

1 Al  St. 

1 ISI 

s 

r ix 

WORD 

A 

f 10AI 

WORD 

1 ORM 

1 ISI 

S 1 

1 RAMI 

It 

1 StUlR 

WORD 

A X 

rtlNCttON 

MSI 

S A 

HANOI  1 R 

VI  Cl  OR 

S X 

lilt  ADI  R 

vi  <:  ior 

S X 

"interrupt  header" 

ILLEGAI 

WORD 

X 

Garbage  collector  may  put  this  on  non-LEGALT  object. 

INK  RNAI 

IN II  RNAI  • IYPI 

X 

should  not  be  seen  by  programs 

l INk 

AIOM 

X 

for  terminal  .shorthand 

LIS  I 

S l 

LOCA 

II 

locative  to  HIPIE 
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LOCAS 

B 

locative  to  ASOC 

LOCO 

B 

locative  to  BYTES 

LOCO 

X 

locative  to  G/LVAL 

LOCL 

B 

locative  to  LIST 

l OCR 

X 

locative  to  GVAL  in  pure  program 

IOCS 

B 

locative  to  STRING 

LOCI 

B 

locative  to  TEMPLATE 

IOCU 

B 

locative  to  UVECTOR 

LOCV 

B 

locative  to  VECTOR 

IOSI 

WORM 

a place  holder 

MACRO 

MSI 

S 

A 

OBI  1ST 

IIVICIOR 

S 

X 

01  r SC  1 

OFFSET 

A 

X 

1 

pcooi 

WORM 

X 

"pure  code" 

PRIM1YPI  -C 

WORM 

X 

"pritntype  code" 

PROCCSS 

B 

QUICK-1 N1RY 

VICTOR 

5 

A 

X 

an  RSUBR'ENIRY  that  has  been  QCALLcd  and  RSUBR- 

LINKcd 

QUICK-RSIIOR 

VI  Cl  OR 

S 

A 

X/B 

an  RSUBR  that  has  been  QCAUed  and  RSUBR-LINKed 

RCADA 

FRAME 

X 

in  eof  slot  during  recursive  REAM  via  REAM-TABLE 

RSUBR 

VI  Cl OR 

S 

A 

X/B 

if  code  vector  is  purr/impiire.  respectively 

RSUBR-I  N ( RY 

VI  C.  IOR 

S 

A 

X 

SEGMf N1 

LIST 

S E 

SPLICC 

LIST 

S 

for  returning  many  things  via  REAM-TABLE 

STORAGE 

S 

If  possible,  use  FREEZE  SUBR  instead. 

STRING 

S 

SUBR 

WORM 

A 

X 

TAG 

VI  C TOR 

S 

X 

for  non-local  GOs 

TEMPI  AH 

S 

B 

The  interpreter  itself  can’t  build  one.  See  Lebling  (1979). 

TIMI 

WORM 

used  internally  to  identify  FRAMES 

TUPIE 

S 

B 

vector  on  the  control  stack 

TYPt-C 

WORM 

X 

"type  code" 

TYPE -W 

WORM 

X 

"type  word" 

UNIiOUNO 

WORM 

X 

value  of  unassigned  but  bound  ATOM,  as  seen  by  locatives 

UVEC IOR 

S E 

"uniform  vector" 

VECTOR 

S E 

1 

WORD 

I 
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Appendix  4.  Error  Messages 

This  is  .1  list  or  .ill  rrror-n.iming  ATOMs  initially  in  the  ERRORS  OBLIST,  in  the  left-hand  column, 
and  appropriate  examples  or  elucidations,  where  necessary,  in  the  right-hand  column. 


ACCESS-FA  1 1 UKI 

ALRF At»Y - l»T E INI  |)-l  RRF T-NON-f AtSE-TO-REDEFINE 
APPL Y-OR-SI ACkl  ORM-Of  -IStlltR 

ARG-WRONG- 1 YPE 
ARGIIMINI-OUI-OI  -RANGE 

ATOM-Al  READY-1IIERE 

ATOM -NOT  - I YI'I  -NAME  -OR-SPECIAL-SYMBOL 
ATOM-OM-imn  Rl  H I -OBI  1 SI 
ATTEMPI- TO-BRE AK-OWN-Sl QUENCE 
ATTEMPT- TO- CHANGE -MAN ITEST -VAR  I ABLE 
ATTEMPT  - TO-CtOSF-  IT  Y-CIIANNEL 
ATTEMPI  - 10-01  I I R-HNDH  f RABLE  - INTERRUPT 

ATTEMPT- TO -GROW- VI  Cl OR -TOO -MUCH 
ATTEMPI  - lO-HIIUG-AIOMS-PNAME 
ATTEMPI  - 10-MtlNG-PURE-STRUCTURE 
ATTEMPT- T0-SU1C1PE-10-SELF 
BAO-ARGUME NT-LIST 
BAD-ASC 1 1 -CIIARAC 1 f R 


BAD-BY1E S-PECL 
BAD-CMANN! I 
BAD-CLAUSF 

BAD-DECI ARA1 ION-1  1ST 

BAD-DF  I AIM  l-OIH  IS  I -SPE  C II  ICATION 

BAD-ENIRY-BIOCK 

BA0-CNV1 RONMI NT 
BAD-K1XUPS 
BAD-FUIMRG 
BAO-GC-RI AD-T It  E 


L 


ACCESS,  RESTORE  (Tenex  and  Tops-20 
versions  only) 

First  argument  to  APPLY.  STACKFORM, 
MAPF/R  doesn’t  EVAL  all  its  arguments. 

< ASCI  I 999>S  Second  argument  to  NTH 
or  REST  too  big  or  small. 

<INSERT  "T"  <ROOT»S  <LINK  'T  "T" 
<R00T»$ 

DECL  problem 
INSERT,  LINK,  REMOVE 
<BREAK-SEQ  T <ME»S 

<CLOSE  , INCHANXS 

"llndeferable"  interrupt  (e.g.  "ERROR*) 
while  INT-LEVEL  is  too  high  to  handle  it 
GROW  argument  greater  than  <*  16  1024> 
<PUT  <SPNAME  T>  1 !\T>S 
attempt  to  write  into  pure  page 
<SUICIDE  <ME»S 
<GDECL  ("HI*)  STRINGS 
A character  with  wrong  byte  site  or 
ASCII  code  more  than  177  octal  has  been 
read  (how?). 


Argument  to  COND  is  non-LIST  or  empty 
LIST. 

DECL  in  bad  form 

bad  use  of  DEFAULT  in  LIST  of  OBLISTs 
RSUBR-ENTRY  does  not  point  to  good 
RSUBR. 


CLOSURE  in  bad  form 


J 
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BAD- INPUT -BUFFER 
BAD-LINK 
BAD-MACRO- TABLE 

BAD-OBLIST-OR- LIST- THEREOF 

BAD-PARSF-S1RING 

BAD-PNAME 

BAD-PRIMTYPFC 

BAD- TEMPLA1E -DATA 

BAD-TYPE-CODE 

BAD- TYPE -NAME 

BAD-TYPE -SPECIFICATION 

BAD-USE -OF-BYTE-STRING 

BAO-USE-Or-MACRO 

BAD-USE-OF -SQUIGGLY-BRACKETS 

BAD-VECIOR 

BYTE-SIZE-BAD 

CANT-CHTYPE-INTO 

CANT-FIND- TEMPI  ATE 

CANT-OPEN-OUTPUT-FILE 

CANT-RETRY-FNTRY-GONE 

CAN  T -SUBS  T 1 TUTF  - WITH-STRING-OR-TUPLE-AND-OTHER 

CAN\ ' T-PARSE 

CHANNEL-CLOSED 

CONTROL-G? 

COUN  T-GRL  A H R-1IIAN-S1  RING-SIZE 

DANGEROUS- INTERRUPT-NOT-HANDLED 

DA  TA-CANT-GO- IN-UNIFORM-VECTOR 

DATA-CAN\ * T -GO- IN -SI  OR AGE 

OECL-ELEMLN1  -NOT-FORM-OR-ATOM 

DECL-VIOLAT ION 

DEVICE-OR-SNAME-DIFFERS 

ELEMENT  - T YPE-NOT-ATOM-FORM-OR-VECTOR 

EMPTY-FORM- IN-Dt CL 

EMPTY-OR/ PRIM TYPE -FORM 

EMPTY-STRING 

END-OF-F ILF 

ERRET-TYPE-NAMF-DESIRED 
ERROR -IN -COMPILED -CODE 
FILE-NOT-rOUND 
FILE-SYSTEM-ERROR 


(for  a CHANNEL) 

CGUNASS1GN  <CHTYPE  link  ATOM» 
.READ-TABLE  or  .PARSE-TABLE  is  not  • 
vector. 

Alleged  look-up  list  is  not  of  TYPE  OBLIST 
or  LIST. 

non-STRING  argument  to  PARSE 
attempt  to  output  ATOM  with  missing  or 
>ero-length  PNAME 


ATOM  purports  to  be  a TYPE  but  isn't. 

DECL  problem 
#3S 

os 

Bad  argument  to  RSUBR-ENTRY 
■NET"  CHANNEL 
<CHTYPE  1 SUBR>$ 

attempt  to  GC-REAO  a structure  containing 
a TEMPLATE  whose  TYPE  does  not  exist 
SAVE 

attempt  to  RETRY  a call  to  an  RSUBR- 
ENTRY  whose  RSUBR  cannot  be  found 
<SUBSTITUTE  "T*  T>S 
< PARSE  ■*>»  < PARSE  •)•>» 

<READ  <CLOSE  channel» S 

< PRINTSTRING  .OUTCHAN  1>S 

(See  section  21-8.15.)  (ITS  version  only) 
t[ "STRING* ]S  ! [ <FRAHE>]S 
FREEZE  ISTORAGE 


RENAME 
DECL  problem 

<0R>  or  <PRINTYPE>  in  DECL 
< READSTRING  "">S 


RESTORE 
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FIRST-ARG-WRONG-TYPE 

FIRST-ELEMENT-OF-VECTOR-NOT-CODE 

FIRST-VECTOR-ELEMENT-NOT-REST-OR-A-FIX 

FRAME -NO- LONGER-EXISTS 

HANOLER- ALREADY- IN-USE 

HA5-EMPTY-B00Y 

ILLEGAL 

ILLEGAL-ARGUMrNT-BLOCK 

ILLEGAL-FRAME 
ILLEGAL-LOCATIVE 
ILLEGAL -SEGMENT 

ILLEGAL-TENEX-FILE-NAME 

INT-DEVICE-WRONG-TYPE-EVALUATIOH-RESULT 

INTERNAL -BACK -OR- TOP-OF-A-LIST 
INTERNAL- INTERRUPT 
INTERRUPT-UNAVAILABLE-ON-TENEX 
ITS-CMANNFLS-FXHAUSTED 

MEANINGLESS-PARAMETER-DECLARATION 
MESSAGE -TOO-BIG 
MUDOLE-VERSIONS-OIFFER 
NEGATIVE -ARGUMENT 
NIL-LIST-OF-OBLISTS 
NO-FIXUP-FILE 

NO-ITS-CHANNELS-FREE 
NO-MORE -PAGES 
NO-PROCESS-TO-RESUNE 
NO-ROOM-AVAILABLE 

NO-SAV-FILE 

NO-STORAGE 

NON-6-B  IT-CHARACTER- IN-FILE-NAME 
NON-APPLICABLE-REP 
NON-APPl  ICABI E-TYPE 
NON-ATOMIC-ARGUMENT 
NON- ATOM IC-OBLIST-NAME 
NON-DSK -DEVICE 
NON-EVALUATEABI  F-TYPE 
NON-EXISTENT-TAG 

NON-STRUCTURED-ARG-TO-INTERNAL-PUT-REST-I 


RSUBR  in  bad  form. 

IDECL  ((X)  <LIST  [FOO]>) 

(unused) 

<#FUNCTION  ((X))  1>J 

attempt  to  PRINT  a TUPLE  that  no  longer 
exists 


Third  and  later  arguments  to  MAPF/R 
not  STRUCTURED. 

(Tenex  and  Tops-20  versions  only) 
function  for  *INTa  input  CHANNEL 
returned  non-CHARACTER . 
in  compiled  code 
(unused) 

(Tenex  and  Tops-20  versions  only) 
Interpreter  couldn't  open  an  ITS  I/O 
channel. 

bad  object  in  argument  LIST  of  Function 
1PC  (ITS  version  only) 

RESTORE  (version  ■ release) 

<SET  OBLIST  '()>  TS 

MDL  couldn't  find  fixup  file  (section 

19.9). 

IPC-ON  (ITS  version  only) 

for  pure-code  mapping 

<0R  <RESUHER>  <RESUME»S 

MDL  couldn't  allocate  a page  to  map  In 

pure  code. 

MDL  couldn't  find  pure-code  file  (section 
19.9). 

No  free  storage  available  for  GROW. 

<VALUE  REP>  not  APPLICABLE 


T»-3S 

(unused) 

(unused) 

(unused) 

l-TOP-OR-BACK  in  compiled  code 
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NON  - TYPE- FOR*  [’RIMTYPE-ARG 
NOT-A-TTY-TYPE -CHANNEL 
NOT-HANUI FO 
NOT-IN-ARG-LIST 

NOT-IN-MAP-TUNCT ION 

NOT-IN-PROG 

NTH-BY-A-NCGATIVE -NUMBER 
NTH-REST -PUT-OUT-Or-RANGE 
NULL-SI  RING 
NUMBER-OUT-OF-RANGE 
ON -AN -OB LIST -ALREADY 
OUT-OT -BOUNDS 
OVERFLOW 

PDL-OVLRF LOW-BUFFER-EXHAUSTED 

PROCF.SS-NOT  -Rl  SUMABIE 
PROCESS-NOT -RUNABl  E-OR-RESUMABLE 
PURE -LOAD -FAILURE 

READER-5YN1 AX-ERROR-ERRET-ANYTHING-TO-GO-ON 
RSUBR-FNTRY-tINEINKEO 

RSUBR-1N  BAD-rORMAT 
RSUBR-l  AC'<S-r  IXUPS 

SECOND-ARG  WRONG-TYPE 
STORAGE-TYPES-DirFER 

STRUCTURE -CON  I AINS-UNDUMPABLE -TYPE 
SUBSTITUTE-TYPE-FOR-TYPE 
TEMPLATE-TYPE -NAME -NOT-OF-TYPE-TEMPLATE 


TEMPLATE- TYPE-VIOLATION 

TIIIRO-ARG-WRONG-TYPE 

TOO-FFW-ARGUMt  NTS-SUPPLIED 

TOO-MANY-ARGS-TO-PRIM1 YPE-DECL 

TOO-HANY-ARGS-TO-SPECIAL-UNSPECIAL-DECL 

TOO- MANY- ARGUMENTS -SUPPLIED 

TOP-LEVFL -FRAME 

TYPE-ALREADY-EXISTS 

TYPE-MISMATCH 

TYPE-UNDEE INED 

TYPES-DIFF  FR-IN-STORAGE-OBJECT 
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<PRIMTYPE  not-type>  in  DECL 

First  argument  to  OFF  not  ONcd. 

TUPLE  or  ITUPLE  called  outside  argument 
LIST. 

MAPRET,  MAPLEAVE,  MAPSTOP  not  within 
MAPF/R 

<RETURN>$  <AGAIN>$ 
in  compiled  code 
in  compiled  code 
zero-length  STRING 
ZE38S 

CINSERT  T <ROOT»S 

<1  '()>$  BLOAT  argument  too  large 

</  1 0>$  <*  1E30  1 E 30 >S 

Stack  overflow  while  trying  to  expand 

stack:  use  RETRY. 

use  of  another  PROCESS’S  FRAME,  etc. 

Pure-code  file  disappeared. 

RSUBR-ENTRY  whose  RSUBR  cannot  be 
fou  nd 

KEEP-FIXUPS  should  have  been  true  when 
RSUBR  was  input. 

<CHTYPE  1 LIST>$  <CHUTYPE  ' ! [ 1 ] 
LIST>S 

<GC-DUMP  <ME>  <>>$ 

< SUBSTITUTE  SUB R FSUBR>$ 
attempt  to  GC-READ  a structure  containing 
a TEMPLATE  whose  TYPE  is  defined  but  is 
not  a TEMPLATE 


<PRIMTYPE  any  ...> 

<SPECIAL  any  ...> 

<ERRET>  <FRAME  < FRAME  <FRAME»>S 
NEWTYPE 

attempt  to  make  a value  violate  its  DECL 
ISTORAGE 
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TYPES-011  \ ER-IM-UNITORM-VECTOR 

UNASS IGNI 0-VARIABLE 

UNAT  T ACIII  P-PA1II->JAML -SEPARATOR 

UNBOUNIl-VAR  IAB(  C 

UNMATCIIi  I) 

UVECTOR-PUT-l YPE-VIOl  AT  ION 


![T  <>]S 
! -S 

ENOBIOCK  with  no  matching  BLOCK 

PUT,  SETLOC,  SUBSTRUC  in  compiled 

code 

#DECL  ((X)  <LIST  [ REST ]> ) 

<0PEN  "MYFILE*>S  (Mode  missing  or 
misspelt.) 
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Appendix  5.  Initial  Settings 


The  various  switches  and  us»ef nl  variables  in  MDL  are  initially  set  up  with  the  following  values 

<ACT  IVAIE-CHARS  CSTRING  <ASCII  7>  <ASCII  19>  <ASCII  15»> 

;"Tenex  and  Tops-20  versions  only" 

coe ci -check  r> 

< UN  ASSIGN  < GUN  ASSIGN  DEV» 

<GC-MON  <>> 

<Sl  1 INDIAN  <SI  TG  INDIAN  COPEN  "READ"  "TTY : ">>> 

< UN ASSIGN  KFEP-F IXUPS> 

< UN  ASSIGN  <GUNASSIGN  NM1» 

< I IN ASSIGN  <GUNASSIGN  NM?>> 

cSI  I OKU  SI  < SE 1 G OBI  1ST  ( <M0Bl  1ST  INITIAL  1 51  > <ROOT>)» 

CSE 1 Oil  I CHAN  <SE  1G  OUTCHAN  COPEN  "PRINT"  "TTY:">» 

<OV[  Rl  LOW  T> 

<UNASSTKN  REDET 1NE> 

<RSUBR-L IMk  1> 

<SETG  < UN  ASSIGN  SNM>  "wor  King-director  y*> 

< SPECIAL-CHECK  <>> 

<SPEC1A1 -MODE  UNSPECIAI> 

<SE  T I II IS-PROCLSS  <SETG  1HIS-PR0CESS  <MAIN»> 

<ON  "CHAR"  .QUITTER  0 0 ,INCHAN> 

CON  "1PC"  , 1PC-HANDLER  1>  ;"ITS  version  only" 
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Topic  Index 

M 


Parenthesized  words  refer  to  other  items  in  this  index. 


arguments 

arithmetic 

array 

assignment 

binding 

bits 

block 

boolean 

bugs 

call 

change 

character 

circular 

comma 

comments 

comparison 

conditional 


'OPTIONAL*  "TUPLE"  "ARGS"  (parameter) 

♦ - * / ABS  EXP  LOG  SIN  COS  ATAN  MIN  MAX  RANDOM  0?  IT  **?  L?  GT  L«? 
G=?  N=*T 

VECTOR  UVECTOR  TUPLE  STRING  BYTES  TEMPLATE 
SET  SETG  DEFINE  DEFMAC  ENVIRONMENT  (value  parameter  binding) 

BOUND?  GBOUND?  ASSIGNED?  GASSIGNED?  LEGAL?  (assignment  value  parameter) 
WORD  BITS  PUTBITS  GETBITS  BYTES  ANDB  ORB  XORB  EQVB  LSH  ROT 
BINO  PROG  REPEAT  BLOCK  ENDBLOCK  OBLIST  MOBLIST  OBLIST7  !- 
FALSE  COND  AND  AND?  OR  OR?  NOT  (comparison) 

(errors) 

FORM  APPLY  APPLICABLE?  EVAL  SEGMENT 
PUT-DECL  PUTPROP  SET  SETG  (side  effect) 

CHARACTER  STRING  ASCII  PRINC  READCHR  NEXTCHR  FLATSIZE  LISTEN  PARSE 
LPARSE  UNPARSE 

PU1 REST  PUT  LENGTH?  FLATSIZE 

GVAL  SETG 

; FUNCTION  ASSOCIATION 

rr?  N=s 7 =?  N=?  G7  L»?  L7  G«7  0?  1?  MAX  MIN  STRCONP  FLATSIZE  LENGTH? 
(boolean) 

COND  AND  OR  (boolean) 
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concatenation 
coroutine 
data  type 

decimal 

do 

dump 

errors 

escape 

execute 

exit 

file  system 

goto 

graphics 

identifier 


if 

indexing 

input 


integer 

interrupts 

iteration 

leave 


SEGMENT  STRING  CONS 

PROCESS  STATE  RESUME  SUICIDE  RESUMER  ME  MAIN  BREAK-SEQ  iSTEP  FREE-RUN 

TYPE  TYPE?  PRIMTYPE  TYPEPRIM  CHTYPE  UTYPE  CHUTYPE  NEWTYPE  PRINTTYPE 
APPLYTYPE  EVALTYPE  ALLTYPES  VALID-TYPE? 


(loops  execute  call) 

SAVE  (output) 

FRAME  ARGS  FUNCT  ERROR  ERRORS  ERRET  RETRY  UNWIND 
\ AS  *0 

EVAL  APPLY  QUOTE  FS'JBR  *ARGS*  (call) 

RETURN  ACTIVATION  (goto) 

FILECOPY  FILE-LENGTH  RENAME  OPEN  OPEN-NR  CHANNEL  FILE-EXISTS?  NN1  NH2 
DEV  SNM  SNAME 

GO  TAG  UNWIND  PROG  REPEAT  AGAIN  RETURN  ACTIVATION  "ACT*  (loops) 

STORAGE  IMAGE 

ATOM  PNAME  SPNAME  LINK  LOOKUP  INSERT  REMOVE  OBLIST  SPECIAL  (parameter 
value) 

(conditional) 

NTH  OFFSET  GET  PUT  BACK  TOP  (loops) 

READ  READCIIR  NEXTCHR  READB  READSTRING  READ-TABLE  GC-READ  ECHOPAIR 
OPfcN  ACCESS  LOAD  FLOAD  RESTORE  RESET 

FIX  (arithmetic) 

EVENT  HANDLER  ON  OFF  ENABLE  DISABLE  INT-LEVEL  DISMISS  INTERRUPT 
(loops) 

(quit) 
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loading 

location 

loops 


FLOAD  SAVE  RESTORE  LOAO 
(pointer) 

REPEAT  PROG  RETURN  GO  ACTIVATION  AGAIN  NAPE  MAPR  HIST  IVECTOR 
IUVECTOR  ISTRING  IBYTES  IFORN 

X XX  LINK  READ-TABLE  PARSE-TABLE  DEFNAC  EXPAND  MACRO 
"READ*  "WRITE" 

(coroutine) 

* 

PRINT  PR  INI  PRINC  PRINTS  PRINTSTRING  IMAGE  GC-DUMP  ECHOPAIR  FLATSIZE 
SAVE  TERPRI  CRLF  OPEN  ACCESS  RESET  BUFOUT  NETS 

FUNCTION  ATOM  LVAL  SET  SPECIAL  UNSPECIAL  (identifier  value) 

LIST 

PARSE  LPARSE  PARSE-TABLE  UNPARSE 
LVAL  SET  READ 
LOCATIVE  AT  IN  SETLOC  LIST 
(boolean) 

SUBR  FSUBR  ROOT  GVAL  SETG 
FUNCTION  OEFINE  OEFMAC  GVAL  CLOSURE 
~G  AS  *0  QUIT  VALRET  LOGOUT  RETURN  (loops) 

FLOAT  (arithmetic) 

(always  assumed  and  built  in) 

MCMQ  MEMBER  »?  »?  (comparison) 

SEGMENT  GROW  SUBSTRUC 

PUT  PUTREST  SETLOC  SUBSTRUC  (change) 
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sixbit 


storage 


structure 


temporary 


terminal 


trailer 


unbinding 


value 


jname  xjname  send  send-vait  ipc-on 

GC  BLOAT  BLOAT-STAT  FREEZE  TUPLE  'GC*  (structure) 

~ e"pt"  — « 


subroutine  (procedure  primitive) 


■AUX*  BINO  PROG  REPEAT 


(character) 

!-  OBLIST 
(boolean) 

ACTIVATE-CH^^charactcr)01  ECH°PAIR  TYI  ’BL0CKE°"  "UNBLOC«0- 

(binding) 

LVAL  GVAL  VALUE  IN  SET  SETG  ENVIRONMENT  ASSIGNEO?  GASSIGNED7  BOliNnv 
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Name  Index 

"NET" 

ill 

"OPT" 

78  86  137 

"OPTIONAL" 

78  81  86  137 

"PARITY" 

189 

An  underscored 

page  number  refers  to  a 

"PRINT" 

KM 

primary  description:  an  unadorned  page 

"PRINTB" 

104 

number  refers  to 

a secondary  description. 

"PRINTO* 

KM 

"PURE" 

189 

1 " 

61 

"QUOTE" 

137 

!$ 

17 

"READ" 

101  105  184  187  211 

• * 

67 

"READB" 

101 

! - 

tin 

"REALT" 

189 

! -#FALSE  () 

1 13 

"RUNT" 

189 

( . 

67  20G 

"SAVE" 

108 

! < 

66  20G 

"STY" 

H2 

! > 

66 

"SYSD0WN" 

188 

![ 

51 

"TUPLE" 

79  87  105  137 

!\ 

61  100 

"UNBLOCKED" 

187 

U 

54 

"VALUE" 

137 

"WRITE" 

187  211 

m 

21  55  100 

n y m 

102 

# 

24  44  46  100 

"ACT" 

84  87 

"ARGS" 

82  87 

$ 

4 16  98  113  184  185  187 

"AUX" 

81  87  103  105 

"BIND" 

83  86 

X 

24  152 

"BLOCKED" 

182  187 

XX 

152 

"CALL" 

83  87 

"CHAR" 

181 

1 

24  57 

"CLOCK" 

187 

"DIVERT -AGC" 

186  195 

( 

24  54 

"DSK" 

10?  108 

"ERROR" 

188 

) 

24  54 

"EXTRA" 

84  87 

"GC" 

|86 

* 

23  28  151  159 

"ILOPR" 

189 

"INFERIOR" 

189 

♦ 

28  151 

"INPUT" 

102 

"INT" 

113 

t 

24  31 

"IOC" 

189 

"IPC" 

189  203 

- 

28  151 

"MPV" 

189 

"MUD" 

102 

• 

23  24  32 

"MUDDLE" 

108 

"NAME" 

84  87 

m 
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/ 

28  151 

BLOAT 

186  196 

BLOAT-STAT 

198 

0? 

71 

BLOCK 

142  145 

BLOCKED 

170 

1? 

72 

BOUND? 

79  175  187 

1STEP 

175 

BREAK -SEQ 

173 

BREAKER 

ill 

• 

21  10 

BUF0UT 

101  III  115 

BYTE-SIZE 

66 

< 

24 

BYTES 

55  65  66  213 

= »? 

72  211 

CALLER 

164 

a? 

72  93 

CIIANl.IST 

103 

CHANNEL 

65  101  102  103  104  122 

> 

24 

CHARACTER 

64  100  154 

CM TYPE 

45  211 

ABS 

28  • 

CMUTYPE 

64  216 

ACCI SS 

ioi  no 

CLOSE 

[03 

ACTIVAlf -CHARS 

18  1 

CLOSURE 

88 

ACTIVAI ION 

81  150  183  193  205 

CODE 

164 

AGAIN 

85  90  150  175 

COMMENT 

122 

AGC-Fl AG 

I8G 

COND 

75 

ALLTYPES 

46 

CONS 

59 

AND 

73  70  185 

COS 

40 

AND? 

74  93 

CRLF 

100  IOI 

ANDB 

GG  101 

ANY 

125 

DEAD 

170  170 

APPLICABI l 

DECL 

[24  223 

APPLICABl 1 ? 

74 

DECL-CHECK 

*54 

APPLY 

48  88 

DECL? 

[35 

APPLY TYPE 

48 

DEFAULT 

141 

ARCS 

148  170 

DEFINE 

39  147 

ASCII 

05 

DETMAC 

156 

ASOC 

123  109  218 

01  MSI  G 

203 

ASSIGN! P? 

70  79  175  187 

DEV 

[02  265 

ASSOCIATIONS 

123 

DISABLE 

182 

AT 

117 

DISMISS 

[75  [79  [83 

A1AN 

10 

Alan 

22  I0O  M3  194  217 

ECHOPAIR 

IOI  113  146 

AVAI  IN 

123 

EMPTY? 

74 

ENABLE 

182 

IAU 

on  215 

ENDBLOCK 

142  145 

•(•ACT 

100 

ENTRY-LOC 

166 

■ IM 

84  'HI 

ENVIRONMENT 

37  83  84 

||  f % 

IMI 

EQVB 

161 

Name  Index 
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ERRI  T 

10  » IS  175  222 

GETL 

117 

ERROR 

IS  1 17  183  >0(1 

GETPL 

! 17 

ERRORS 

I F?  1 17  206 

GETPROP 

121 

EV/Al 

>0  48  S3  175 

GLOC 

117  165 

EVAL1YPF 

IS 

GO 

% 175  205 

EVEN1 

ITS  179  181 

GROW 

GO  186 

EVLIN 

175 

GUNASSIGN 

32 

EVLOUT 

175 

GVAL 

31  39  41  117  169  193  194  208 

EXP 

II 

EXPAND 

157 

HANDLER 

178  179  179  180  185 

HANG 

ill 

f ALSE 

71 

FBIN 

fr.7 

IBYTES 

66 

FILE-IF  NGTH 

101  110 

I FORM 

58 

FILE-I X1S1S7 

103 

IIIEADER 

177  180 

FILrCOPY 

101  III 

HIST 

57  205 

FIX 

21  p 23  28  53  135 

ILLEGAL 

193 

FEAI5IZE 

100 

IMAGE 

101  107  186 

FIOAD 

IS  76  110  150 

IN 

116  118  119 

FIOA1 

22  23 

INCHAN 

103  146 

FORM 

27  33  58  71 

INDEX 

136 

FRAME. 

147  148  176  103  213 

INDICATOR 

123 

FREE-RUN 

175 

IN  I T 

18 

FREE/E 

164  186  104 

INITIAL 

141  265 

F SAVE 

108 

INSERT 

M3  145 

FSUBR 

28  31  30  30  56  74  74  75  89  90 

INT-LEVEL 

183 

06  131  147  150 

INTERNAL 

258 

FUNCI 

IIS  176 

INTERNAL-TYPE 

258 

f unci  ion 

27 

INTERRUPT 

!H!  *2? 

FUNCTION 

35  39  78  83  84 

INTERRUPT-HANDLER  186 

Function 

84 

INTI  RRUPTS 

142  177 

IPC-HANOLER 

Is 

G/lVAt. 

1 IS 

IPC-OFF 

203 

r- 

n 

13 

72 

IPC-ON 

203 

G7 

7:> 

ISTORAGE 

239 

GASS  I ONE 0 7 

70  187 

1ST  RING 

57  64 

GROUND? 

79  132  193 

ITEM 

123 

GC 

186  193 

ITS 

17  18  102  108  112  1(3  114  115 

GC-DUMP 

101  1(17  100 

166  167  184  184  187  188  189 

GC-MON 

199 

189  189  195  202  202 

GC-READ 

101  107  186  109 

I TUPLE 

80 

GOECL 

131 

IUVECTOR 

57 

GET 

53  121 

IVECTOR 

57 

GET-DLCl 

131  136 

GETS  ITS 

160 

Name  Index 
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JNAME 

201 

MAPF 

9[  92 

MAPLEAVE 

95 

KEEP-riXUPS 

107  265 

MAPR 

9[  92 

MAPRET 

94 

L - INS 

1 10 

MAPSTOP 

95 

L-OUTS 

no 

MAX 

28 

L=  7 

72 

ME 

174  195 

L? 

72 

M1MBER 

73 

LAST-OUT 

I 10 

MI  MQ 

73 

LEGAL? 

SO  85  !)7  NO  118  176  103  214 

MIN 

28 

LENGTH 

52  75 

MOBLIST 

140  144 

LENGTH? 

71 

MOO 

28 

LERR\ 

1 18  151 

MONAD? 

74 

LINK 

153 

MUDDLE 

[8  108  [42 

LIST 

5 1 57  57  50  68  72  186  204  212 

215 

Nss? 

72 

LISTEN 

1 10  1 10  ICO  183 

N=? 

73 

LLOC 

110  175  193 

NBIN 

166 

LMAP\ 

05 

NET  ACC 

[[5 

LOAD 

101  109 

NETS 

101  [15 

LOCA 

117 

NETSTATE 

[15 

LOC  AS 

117 

NEWTYPE 

46  [33  165  186  193 

LOCA II Vf 

125  214 

NEXT 

[23 

LOCATIVE? 

117 

NEXTCHR 

96  99  101  187 

LOCB 

117 

NM1 

102  265 

LOCO 

[16  117  193  214 

NM2 

102  265 

LOCL 

1 [7 

NOT 

73 

LOCR 

105 

NTH 

52  88 

LOCS 

117 

LOCT 

i 17 

OBLIST 

100  139  141  146  169  194 

LOCI) 

117 

OBLIST? 

140 

LOCV 

117 

OFF 

179 

LOG 

•! 

OFFSET 

135  214 

LOGOUT 

>02 

ON 

18[ 

LOOKUP 

in 

OPEN 

101  105  111  113  114  184 

LOSE 

58  01  64 

OPEN-NR 

[02 

LPARSE 

05  1 13  153  156 

OPT 

127 

LPROG\ 

90 

OPTIONAL 

127 

LSH 

io* 

OR 

74  76 

LVAL 

32  37  116  119  169  175  193  208 

OR? 

74  93 

ORB 

16[ 

MACRO 

90  156 

OUTCHAN 

49  [03  128  146 

MAIN 

174  174  195 

OVERFLOW 

ill 

MANITES1 

131 

MANIFEST? 

132 

PARSE 

65  143  143  153  156  157 

Name  Index 
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PARSE-STRING 

156 

RESUMABLE 

170 

PARSE-1ABLE 

153 

RESUME 

170  17J  173  190 

PCODE 

161 

RESUMER 

1 74 

PNAME 

22  HI  217 

RETRY 

150  222 

PRIMTYPE 

11 

RETURN 

85  90  175 

PR IMTYPE-C 

165 

RGLOC 

165 

PR  IN  1 

99  101  112 

ROOT 

141145 

PRINC 

100  101  112 

ROT 

162 

PRINT 

20  23  48  99  101  112  141 

RSUBR 

147  163  165  194 

PRINTB 

101  106 

RSUBR-ENTRY 

147  166 

PRINTSTRING 

101  106 

RSUBR-LINK 

161265 

PRINTTYPE 

18 

rubout 

17  98  113 

PROCESS 

146  169  170  190  193  219 

RUNABLE 

170 

PROG 

84  89  204 

RUNINT 

181 

PURE-PAGE-LOADER  186 

RUNNING 

170 

PURIFY 

108  186  194  199 

RUNTIMER 

189 

PUT 

53  56  68  88  120 

PUT-DECl 

134  136 

SAVE 

108  108  165  200 

PUTBITS 

161 

SEGMENT 

66  72  154 

PUTPROP 

120 

SEND 

202 

PUTREST 

59  69 

SEND-WAIT 

202 

SET 

32  37  175  186  194 

QUICK-ENTRY 

164  259 

SETG 

30  37  186  194 

QUICK-RSUBR 

164  259 

SETLOC 

116  118  119 

QUIT 

202 

SIN 

40 

QUITTER 

184 

SLEEP 

m 

QUOTE 

56  82  83 

SNAME 

no 

SNM 

102  108  110  265 

RANDOM 

29 

SORT 

61  73 

READ 

20  22  99  101  122  140  142  153 

SORTX 

62 

187 

SPECIAL 

127  156  193  223 

READ-TABLE 

153 

SPECIAL-CHECK 

134 

READA 

154 

SPECIAL-MODE 

128  134 

READB 

101  106 

SPLICE 

154 

READCHR 

96  99  101  105  112  113  187 

SPNAME 

144 

READSTRING 

101  106  112 

SQRT 

40 

REALTIMER 

189 

SQUOTA 

253 

REDEFINE 

10  265 

STACKFORM 

96 

REMOVE 

!±3. 

STATE 

170 

RENAME 

ioi  m 

STORAGE 

194 

REP 

N6 

STRCOMP 

73 

REPEAT 

84  89  205 

STRING 

55  57  64  65  100  154  213 

RESET 

101  102  m 112 

STRUCTURED 

125 

REST 

52  56  75  126  219 

STRUCTURED? 

74 

RESTORE 

108  109 

SUBR 

28  31  147 
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Subroutine 

28  147 

SUBS  11  Hilt 

11!) 

XJNAME 

201 

SUBSTRUC 

51  56 

XORB 

161 

suicide 

174 

XUNAht 

201 

T 

71 

t 

24  54 

TAG 

% |!I3 

TEMPLATE 

55  66  >10 

\ 

25  55  100  154 

Tenex 

17  18  102  108  113  114  114  115 

151  1G7  178  184  187  188  189 

] 

24  54 

180  180  180  227 

TERPRI 

7C»  100  101 

A 

4 107 

THIS-PROCiSS 

171  174 

A0 

17  58  98  113 

TIME 

201 

AD 

17  98  IIS 

TO 

III 

AG 

|7  150  184 

TOP 

GO  >15 

AL 

17  98  113 

TOPLEVI  L 

1 18 

"0 

17  m 

Tops-?0 

17  18  102  108  113  111  111  115 

AS 

17  146  m 184 

151  167  178  181  187  188  189 

18't  180  180  227 

1 

24  55 

TIYECIIO 

101  113  1 46 

TUPLE 

80  80  103  214 

> 

24  55 

TYI 

101  U3  187  187 

TYPE 

20  44  74  94  103  >11  >18 

TYPE-C 

iG5~ 

TYPE-W 

165 

TYPE? 

74 

TYPEPR1M 

45 

UNANE 

201 

UNASSIGN 

33  175 

UNBOUND 

218  250 

UNMAN  IF  ESI 

132 

UNPARSE 

65  144 

UNSPCCIAI 

127  221  223 

UNWIND 

150  223 

UTYPE 

63 

UVECTOR 

5 1 57  57  63  65  204  213  217 

VALID- I YPE ? 

46 

VALRET 

20> 

VALUE 

33  124  175 

VECTOR 

54  57  57  63  186  204  212  2IG 

Name  Index 


i 


i 


* 


i 


l 

j 


OFFICIAL  DISTRIBUTION  LIST 


Defense  Documentation  Center 
Cameron  Station 
Alexandria,  VA  22314 
12  copies 

Office  of  Naval  Research 
Information  Systems  Program 
Code  437 

Arlington,  VA  22217 
2 copies 

Office  of  Naval  Research 
Branch  Office/Boston 
Building  114,  Section  D 
666  Summer  Street 
Boston,  MA  02210 
1 copy 

Office  of  Naval  Research 
Branch  Office/Chicago 
536  South  Clark  Street 
Chicago,  IL  60605 
1 copy 

Office  of  Naval  Research 
Branch  Office/Pasadena 
1030  East  Green  Street 
Pasadena,  CA  91106 
1 copy 

New  York  Area 
715  Broadway  - 5th  floor 
New  York,  N.  Y.  10003 
1 copy 

Naval  Research  Laboratory 
Technical  Information  Division 
Code  2627 

Washington,  D.  C.  20375 
6 copies 

Assistant  Chief  for  Technology 
Office  of  Naval  Research 
Code  200 

Arlington,  VA  22217 
1 copy 

Office  of  Naval  Research 
Code  455 

Arlington,  VA  22217 
1 copy 


Dr.  A.  L.  Slnfkosky 
Scientific  Advisor 
Commandant  of  the  Marine  Corps 
(Code  RD-1) 

Washington,  D.  C.  20380 
1 copy 

Office  of  Naval  Research 
Code  458 

Arlington,  VA  22217 

1 copy 

Naval  Ocean  Systems  Center 
Advanced  Software  Techonolgy 
Division  - Code  5200 
San  Diego,  CA  92152 

1 copy 

Mr.  F..  H.  Gleissner 

Naval  Ship  Research  & Development  Center 
Computation  & Math  Department 
Bethesda , MD  20084 

1 copy 

Captain  Grace  M.  Hopper  (008) 

Naval  Data  Automation  Command 
Washington  Navy  Yard 
Building  166 
Washington,  D.  C.  20374 
1 copy 

Mr.  Kin  B.  Thompson 
Technical  Director 
Information  Systems  Division 
(0P-91T) 

Office  of  Chief  of  Naval  Operations 
Washington,  D.  C.  20350 
1 copy 


Captain  Richard  L.  Martin,  USN 
Commanding  Officer 
USS  Francis  Marion  (LPA-249) 
FP0  New  York,  N.  Y.  09501 
1 copy 


